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Controle de 
locadora para o PC 
parte 3 








Saiba como funcionam e 
aprenda a evitar defeitos 
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did DENTRO DE CENÁRIOS 
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O MSX dd: 
DO FUTURO KIT PARA DRIVE DDX 


Composto de gabinete metá- 
lico, fonte de alimentação, interfa- 
ce DDX, cabo para dois “drives, ma- 
nual e sistema operacional (DOS). 


À DDX MODEM PARA MICROS MSX 
Transmite e recebe em 1200/75, 300/300, 
1200/1200, BELL e CCITT. Discagem automática 
pelo teclado do micromputador. Monitoração 
de linha, rediscagem automática no caso de 
ocupado, atendimento automático. Contém 
software embutido para terminal genérico, ví- 
deo aco (MSX 1 e MSX 2). Homologado pela 
TELESP 





CONHEÇA OS 
MAIS RECENTES 
LANÇAMENTOS 


KIT DDX PLUS 14 

Este Kit faz com que o usuário es- 
colha entre o modo "PLUS E fa- 
zendoseu micro ficar compatível 
com todos osjogos e utilitários do 
mercado. No modo Plus, o micro 
possui mais 64K de Ram, totalizan- 
do 128K. 


KIT DDX MSX 2.0 
O Kit MSX 2 faz com que'o micro, 
entre outras vantagens, tenha 





maior resolução, maior velocidade EXPANSOR DE SLOTS DDX MEGA RAM DISK 
de.manipulação de gráficos, um Este aparelho expande cada "SLOT do micro Esta placa é uma expansão de memória com 
relógio real com bateria para MSX em 4 "SLOTS" independentes, possibili- o sistema operacional DDX DOS residente e é 
quando o micro estiver desligado, tando ao usuário utilizar até 8 "SLOTS" simul- apresentada em 3 modelos diferentes: DDX 
80 colunas programáveis, 128K de taneamente, ao invés de 2 originalmente. 256, 512 € 768 Kbytes. Portanto, ela funciona 
Ram de vídeo, 256 cores simuitá- como se fosse uma drive normal para o 
neas, etc. computador. 


Para quem gosta somente de jogos, é reco- 
mendável a'Mega Game DDX 256 Kbytes sem 


o DDX DOS residente. 
(Mbgitil. j Digital Design Eletrônica Ltda. 





(011) 575-9037 * 5872-7419 — FAX (011) 575-9037 
SAO PAULO — SP 





Agora na tevê, 
todas as cores 





Er 


e PLACA RF - VÍDEO COMPOSTO (PAL/M) 


Placa para computadores PC XT/AT que transforma o sinal de 
vídeo RGB de uma placa CGA em vídeo composto colorido 
e em sinal de RF (saída para televisão), ambos PALM. 

O som do PC (auto falante) é também adicionado ao sinal 
de RF, permitindo ao televisor reproduzir o som do computador, 








eletrônica ltda. (011) 572.7419 — 575.9037 


é Migital Hesigo 4 





mm [ijvroSoft x 


O livro que você queria. Com o 


Livrosoft software que você não podia ter. 







ESsFICAD 


TÍTULOS JÁ DISPONÍVEIS 


CLBC 
BIBLIOTECA COMPUGRÁFICA PARA CLIPPER 


Biblioteca de funções gráficas que am- 
plia os limites da linguagem Clipper. 
Gráficos comerciais, bancos de dados 
com imagens, vinhetas de abertura e 
aplicativos gráficos são alguns exem- 
plos do que é possível ser feito com o 
Clipper e a CLBC. 





CLBC é um produto da SoftCAD Informática. 


DESCRITOR 
DOCUMENTADOR DE SISTEMAS 





Poderoso documentador automático 


de sistemas escritos em linguagem 
Clipper, dBase ou Dialog. A partir do 
nome do programa principal são docu- 
mentados todos os elementos do 
sistema, seus conteúdos e inter-rela- 
cionamentos. 


Descritor é um produto da XS Informática. 
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ANO XINº 10 CAPA: CLAUDIO COSTA 





Ao leitor 


Estamos nos aproximando do final do ano e nada de excepcional aconteceu no 
mercado de microinformática. Nenhum grande fabricante se instalou em nossas 
praias, nenhuma grande softhouse entrou pra valer em nosso mercado, nenhuma 
novidade significativa aportou nas prateleiras das lojas, nos grandes centros urba- 
nos (leia Rio e São Paulo). 

Enfim, tudo continua como sempre foi (inclusive a inflação crescente) e a so- 
berania nacional está cada vez mais resguardada dos “abutres“ estrangeiros. En- 
quanto isso, nos subterrâneos do mercado informal, já se pode comprar qualquer 
novidade high tech recém lançada nos Estados Unidos. Tudo continua como sem- 
pre foi... 


A partir desta edição entramos no ano XI da MICRO SISTEMAS e, como não 
poderia deixar de ser, estamos preparando uma série de novidades para os leitores. 
Elas começarão a ser mostradas na próxima edição. 

Encerramos nesta edição a publicação de dois grandes programas: o CADPRO, 
do Daniel Jerozolinski e o Controle de Locadora, do Ricardo Gomide. 

Como destaque, temos também uma Agenda no micro, escrita pelo Vicente Mo- 
redo e uma matéria sobre disquetes, de autoria de Carlos Gonçalves. Imperdível 
também é a matéria de capa desta edição, escrita por Evandro Ruiz e Aparecido 
da Costa, que trata do reconhecimento de padrões gráficos. 


Renato Degiovani 
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ESPECIAL APLICATIVOS 


NÃO USE A MEMÓRIA, USE O MICRO CONTROLE DE LOCADORA 
Vicente José Moredo ça. SR Ricardo Borges Gomide . 


CADPRO: UM SISTEMA SOB MEDIDA 
Daniel Jerozolimski ........ssessesssesesss 48 
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RECONHECIMENTO DE PADRÕES 


Evandro Seron Ruiz e Aparecido da Costa ... 12 PROGRAMA 


ÓRGÃO NO MICRO 
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DISQUETES: FUNDAMENTOS 
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UM DIR MUITO ESPECIAL SEÇÕES: 








Marcelo Flores Vieira .. 
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É FÁCIL LIDAR COM ELES LIVROS 
Márcia Marini e Cláudio Oliveira ................ 38 = 
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Lançamentos Sisco têm 
tecnologia RISC 


A Sisco Sistemas e Computadores lança 
no mercado nacional novos equipamentos 
com tecnologia RISC e toda uma linha de 
produtos para redes locais. São supermicros 
386 e 486; uma estação de trabalho 386 
diskless; supermicros e superminis com ar- 
quitetura RISC; um exclusivo superservidor 
para redes que permite processamento si- 


SUPERMICRO SISCO SIX/486 SX 








multâneo e integrado de sistema operacio- 
nal UNIX e de software de rede Novell; além 
de equipamentos para os segmentos de au- 
tomação comercial e industrial. 

Os novos produtos Sisco demonstram 
um direcionamento da empresa para a filo- 
sofia de Sistemas Abertos, ou Open Sys- 
tems, onde programas e aplicativos desen- 
volvidos em diferentes plataformas de 
hardware podem ser usados com total com- 
patibilidade, economia de escala e conec- 
tividade entre sistemas heterogêneos, e 
ainda, garantia de compatibilidade binária de 
software. 


Infosul lança micro de 
32 bils 


A Infosul Informática, fabricante de mi- 
crocomputadores do Sul do País, num 
acordo tecnológico com a AMI - American 
Megatrands Inc. (líder mundial na área de 
Bios), apresenta ao mercado nacional a nova 
linha Quality, com micros de 32 bits. 

A empresa inicialmente comercializa 
cinco modelos: um 386 SX, com 25 Mhz 
de velocidade, memória RAM de 32 Mbytes 
e memória cache de 32 Kb; um 386 DX, 
com 33 ou 40 Mhz, memória RAM de 64 
Mbytes e cache de 64 a 256 Kb; um 486 
SX, com 20 Mhz de velocidade, 32 Mbytes 
de RAM; um 486 DX, com 33 Mhz de ve- 
locidade, 96 Mbytes de RAM e 64 a 256 Kb 
de cache; além da máquina de barramento 
Eisa - um 486 DX, com velocidade de 33 
Mhz, memória RAM de 96 Mbytes e cache 
de 128 Kb. 


A Infosul importa somente as placas- 
-mãe desmontadas, que integra aos produ- 
tos nacionais, com um índice inicial de na- 
cionalização de 70% (custo final do 
produto). São planos da empresa, em breve, 
fabricar também as placas no País. 





LINHA QUALITY DA INFOSUL 


Rio de Janeiro tem 
nova livraria 


a 


O carioca ganha mais uma opção na pro- 
cura dos melhores preços em livros de In- 
formática. Com a abertura da Livraria Ciên- 
cia Nova Ltda., o interessado pelo setor 
conta com um acervo das melhores edito- 
ras de computação do País, além de uma 
linha de suprimentos de diversos fabrican- 
tes. 


TIDDENATSE 


DRIVES DE51/4E31/2 
MODEM DE COMUNICAÇÃO 
LIVROS 

DISCOS 51/4E31/2 


IMPRESSORAS 
EXPANSOR DE SLOTS 
BOBINAS PARA FAX 
MESAS PARA CPD 





MONITORES 

TRANSFORMAÇÃO PARA 2.0 
FORMULÁRIOS CONTÍNUOS 80 COL. 
ESTABILIZADORES DE VOLTAGEM 


Solicite nosso catálogo de programas Cr$ 500,00 (este valor será abatido no seu pedido). 


Atendemos todos os estados em 24 horas via SEDEX. 


Para fazer seu pedido envie cheque nominal com carta detalhada para MSX-SOFT. 





TEL: (021) 284-6791 
FAX: (021) 264-0563 


Matriz: RJ - Av. 28 de Setembro, 226 Loja 110 VILA 
SHOPPING - RJ - CEP 20551 - Tel: 284.6791 e 264-1549 
Filial: Curitiba - Av. 7 de Setembro, 3.146 Loja 20 

SHOPPING SETE - CURITIBA - PR - CEP 80010 - Tel; 232-0399 


Filial: SP - Caixa Postal 20.217 — CEP 04034 — Tel.: 579-8050 


BYTES 


Filcril lança linha Topis 
no Brasil 


A Filcril, empresa distribuidora de pro- 
dutos de informática e microeletrônica, já 
fabrica no Brasil a linha Topis de microcom- 
putadores PC. 

Anteriormente formada pelos modelos 
XTe AT 286, a linha Topis traz também as 
versões 386/SX/DX e 486/DX. São agora co- 
mercializados no País os seguintes mode- 
los: HQ-1288 (PC XT com processador NEC 
V-20; 12 MHz de velocidade; 1 MB de me- 
mória RAM e um drive 5 1/4; com 360 KB 
de capacidade); HQ-286 (PC AT com pro- 
cessador Intel 80286; 12,5 a 16 MHz; 1 MB 
de RAM, expansível a 8 MB e um drive 5 1/4' 
com 360 KB, na versão standard) além das 
novas versões HQ-386/SX (16 a 20 MHz de 
clock selecionável; 2 MB de RAM, expan- 
sível a 8 MB; dois drives 5 1/4; com 360 
KB/1,2 MB de capacidade, além de um win- 
chester de 40 MB MFM ou IDE); HQ-386/DX 
(33 MHz; 2 MB de RAM, expansível a 32 MB; 
memória cache de 64 KB, expansível a 256 
KB; dois drives de 5 1/4, com 360 KB/1,2 
MB e um winchester de 40 MB MFM ou 























NOVA LINHA TROPIS 


IDE); HQ-486/DX (25 MHz de velocidade; 4 
MB de RAM, até 32 MB; 64 KB de cache, 
até 256 KB, além de 8 KB integrados ao pro- 
cessador principal; dois drives de 5 1/4; com 
360 KB/1,2 MB e um winchester de 80 MB 
MFM ou IDE). Todos com floppies opcionais 
de 3 1/2' de 1,44 MB. 


A PROTEÇÃO 
DEFINITIVA CONTRA! 
CÓPIAS PIRATAS 


H&J SOFTWARE LTDA 
RUA MAYRINK VEIGA, 32 — SLL — RIO DE JANEIRO — RJ — TEL.: (021) 233-21 





Os modelos vêm equipados com moni- 
tores CGA Mono, 12 polegadas, com opcio- 
nal de VGA 14 polegadas colorido ou 
CGA/Hércules, com tela plana de 12 pole- 
gadas B/W. Podem ser montados em gabi- 
netes baby ou desk, com opção em ABS im- 
portado, tipo torre baby, mini, midi ou super. 









IMUNE A QUALQUER 
COPIADOR OU PLACA 
DUPLICADORA. 

FUNCIONA EM 
QUALQUER MICRO 
COMPUTADOR DE 16 
BITS. 





BYTES 








“DEUS TO 
Nova linha de móveis 
para informática 


A Hobjeto Indústria e Comércio de Mó- 
veis Ltda já comercializa sua nova linha, es- 
pecialmente desenvolvida para o setor de 
informática. Com design moderno, os mó- 
veis pretendem aliar beleza, resistência e 
praticidade. 

A linha apresenta características espe- 
cíficas para adaptação de computador e im- 
pressora, além de acessórios para tomadas 
de energia e telefone, passagem para cabo 
e o suporte aramado para impressora e 
apoio de papel. São mesas, gaveteiros e ou- 
tros complementos, fabricados em aglome- 
rado com revestimento melamínico, dispo- 
níveis nas cores ovo e cinza, além do 
acabamento das bordas, que é feito em 
freijó preto. 

A empresa dispõe de atendimento gra- 
tuito ao cliente, com criação de plantas es- 
pecíficas a cada ambiente. 





MOVEIS PARA INFORMÁTICA DA HOBJETO 





DATACRYPTOR 64, DA RHEDE TECNOLOGIA 


Datacryptor 64 garante 
segurança dos dados 


A Rhede Tecnologia, fabricante de pro- 
dutos para a área de comunicação de da- 
dos, lança o Datacryptor 64 - um criptógrafo 
utilizado para cifragem de informações. 

Equipamento utilizado para garantir a se- 
gurança dos dados, o Datacryptor trabalha 
acoplado a um modem. Evita a espionagem, 


pois só permite o acesso ao banco para 
quem possui outro aparelho que esteja pro- 
gramado com a chave de acesso. 

A combinação da chave de acesso pode 
ser modificada diariamente. E mais um pro- 
duto que investe na segurança dos dados, 
preocupação constante dos usuários de 
bancos. 


Gerente Contábil 
sistema para PC 


A Nasajon desenvolveu o Gerente Con- 
tábil, sistema de contabilidade para micros 
de 16 bits, criado para executar as funções 
normais do cotidiano empresarial. 

O Gerente Contábil realiza a escrituração 
do diário, razão, balancetes, balanço e de- 
monstrações de resultados, bem como 
funções gerenciais do tipo: análises de re- 
sultados através de gráficos; relatórios e 
controle financeiro através da conversão au- 
tomática para outras moedas ou índices. 

O sistema conta ainda com: agenda per- 
sonalizada para cada operador, calculadora, 
lançamentos em lote ou instantâneos e es- 
trutura de suporte ao usuário. 


AMI PRO já tem versão 
em português 


A SPA - Sistemas, Planejamento e Aná- 
lise lança a versão em português do AMI 
PRO, processador de texto para ambiente 
Windows, da Lotus. 

Utilizado por jornalistas, escritores, se- 
cretárias, etc., o software combina caracte- 
rísticas de processamento de textos com 
desktop publishing e é concebido em Wi- 
SIWIG, onde o usuário vê na tela o que será 
impresso (what you see is what you get). 

O programa opera através de menus com 
interfaces intuitivas e apresenta uma barra 
de ícones à esquerda da tela, onde o usuá- 
rio seleciona ítens correspondentes às 
funções mais usadas. 


JOGOS E APLICATIVOS PARA MSX-1 PERIFÉRICOS 


JOGOS, MEGARAM, APLICATIVOS EM DIS- 
Cos 3 1/2E 5 1/4 

* Temos mais de 2000 

* Os melhores do mercado ' 


TEMOS JOGOS 
E APLICATIVOS 


e Kit para Drive DMX 
* Flop ou Acionador DMX 
* Drives completos 5 1/4 ou 3 


-SOFT BELT - 
omSR To 
SOFT BELT MSX-1 


R. Dr. Luis Ayres, 2114 Sala 3 - Artur Alvim 
São Paulo - Capital - Tel. (011)957-4666 
Próximo a Estação Artur Alvim do Metrô 


e Os últimos lançamentos vindo da | 1/2 


Europa 


SUPER PROMOÇÃO: Cada 5 jogos 2 grá- 
tis a cada 10 jogos 4 grátis a escolha. À 
cada 5 aplicativos 1 grátis a cada 10, 2 
grátis. a 

SOLICITE SEU CATÁLOGO! 


* Cartucho MEGARAM 
* Formulários Contínuos, etc... 


ATENDEMOS 
TODO O BRASIL 


SOLICITE 
CATÁLOGO 
GRÁTIS 





PROGRAMAS PROFISSIONAIS E SERVIÇOS 
AO ALCANCE DE TODOS 


Só você sabe onde o sapato aperta. Por isso, seu programa específico passa a ser um Programa Alternativo para a PAC. Este 
é o motivo pelo qual nossos programas tornam-se bons produtos e custam muito menos. 


Programas padrão modificados 


Se você adquire um dos nossos programas e deseja modificá-lo, defina suas idéias, envie-nos e aguarde nosso orçamento. 
Rapidinho chegamos a você. 


Na PAC, você fala direto com quem faz. Um de nossos programadores, altamente qualificados, será responsável pelo seu 
projeto. Portanto, se você sabe mesmo o que quer, a partir de agora somos o seu suporte a distância. 


Fornecemos programas com fonte 


Loucura? A princípio sim. Porém, se cortarmos as algemas, você estará ligado à PAC apenas por opção. — Separados — 


mas felizes para sempre. Assim é bem melhor ! 


Se você programa ou tem próximo de você um programador, não despreze esta possibilidade. 


PROGRAMAS SERVIÇOS 


Imobiliária informatizada 
Condomínio informatizado 

Posto de gasolina informatizado 
Casa mat. construção informatizada 
Casade ferragens informatizada 
Locadora de vídeo informatizada 
Caixa informatizado 

Cobrança informatizada 

Confecção informatizada 

Lab. análises clínicas informatizado 
Processador de etiquetas 

Mala expressa 


PROGRAMAS PROFISSIONAIS 


Advogado informatizado 
Médico informatizado 
Veterinário informatizado 
Juiz informatizado 
Tradutor informatizado 
Contador informatizado 
Comprador informatizado 


(º) Programa fornecido, opcionalmente, com código fonte. Custo: 3 sal. 
mínimos + o programa. 


(**) Preço garantido mediante reserva. 


Se o seu serviço não se encontra em nossa linha de produtos, 
converse com a gente. 


REVENDAS 
Brasília - DF 


Tel. (061) 226-0877 


IGES, A promoção continua... Cr$ 44.000,00 | | LaptopInformárica 
c br red ESP 
Ec Lc Tudo Campinas - SP 

dr Exciton Ind. Eles. Ltda. 


VOCABULÁRIO MULTILINGUÍSTICO PARA COMPUTADOR 


Podem ser acrescentados novos vocáb 


Tel. (0192) 419-766 
Criciúma - SC 


88.000 palavras, 68.000 para português/inglês 3 ; Miranda À ii 
ulos. 20 Tel. (0484) 333-711 
ano 9 ps A 
É Fortaleza-CE 


30 combinações entre as 6 línguas. 


Ss 
mão 
Consulta simultânea para todos os idiomas. 


Opera dentro de processadores de textos - residente em memória. 


Didático Gramática básica da e 
ortografia, sintaxe, regênci 


Programas Alternativos para Computador 
SEIS Rua Dr. Bormann, 51 gr. 1203 - Niterói - RJ- CEP 24020 


a portuguesa, tirando dúvidas sobre 
e muito mais... 


Telemicro Informática 
Tel. (085) 252-1514 
Salvador - BA 

Soft Shop Com. e Serv. 
Tel. (071) 359-4989 








(021) 717-3021 
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Fiesp arquiva fotos em 
discos óticos 


Todo o acervo de fotos e slides que 
compõem o banco de imagens da Fiesp 
-Federação das Indústrias do Estado de São 
Paulo será digitalizado e gravado em discos 
óticos regraváveis, de 1 Gigabyte, com ca- 
pacidade de armazenar até 32 mil imagens 
comprimidas. 

As imagens apresentam os produtos fa- 
bricados pelas empresas associadas à 
Fiesp. São 30 mil fotos e slides que, se dis- 
postas lado a lado (formato 18 X 24 cm) 
ocupariam uma extensão de 7,2 quilôme- 
tros. Quando gravadas, ocuparão um único 
disco ótico, de 5 1/4 polegadas. 

O trabalho objetiva a preservar o acervo 
e facilitar qualquer consulta ao banco de 
imagens, que pode ser feita em segundos, 
através das diferentes estações de trabalho 
interligadas em rede local no prédio da 
Fiesp. A rede é gerenciada por uma CPU 
386 DX, que opera em 25 MHz, com 4 Mby- 
tes de memória RAM, discos rígidos de 154 
Mb, placa gráfica Targa+ 16/32 e monitor 
Targa de 19 polegadas, colorido e de alta re- 
solução. 

A responsabilidade da importação e su- 


KERNEL 
Consultoria e Sistemas 


EQUIPAMENTO PARA LEITURA E GRAVAÇÃO 


porte técnico da tecnologia dos discos óti- 
cos é da Computer Graphics and Vision Di- 
vision da Fotoptica. O sistema é baseado no 
software Picture Power com Hardware Com- 
pression, com o Sable Paint, da AT&T/GSL, 
para retoque de cores das imagens captu- 
radas. 





Para a leitura e gravação das imagens, 
a Fiesp vai utilizar o Panasonic Optical Disk 
Drive. As imagens são capturadas por scan- 
ners coloridos Howtec, para papel e slides, 
e a saída de dados será feita via impressora 
térmica Shinko e fotografadora Mirus, com 
8 mil linhas de resolução. 


NOVIDADE 


CEI - Cartão Eletrônico Instantâneo 


Lembra daquele cartão de consulta rápida que você nunca encontra 
quando precisa? Pode aposentá-lo! Chegou o CEI Kernel, o cartão de 
referência que fica residente na memória do micro. Quando você precisa 
de uma informação, ela está lá. Basta pressionar uma tecla. Nada mais 
simples, rápido, cômodo e barato. E os assuntos são os mais requisita- 





Clipper 
Assembler 


DOS 
[ IInterrupções 














Na compra de dois ou mais 
cartões eletrônicos você recebe in- 
teiramente grátis o software 
AGENDA KERNEL. 





dos pelos programadores. 


COMO ADQUIRIR O CEI: 


Recorte este anúncio e marque quais cartões deseja receber. Cada 
cartão eletrônico custa Cr$ 24.800,00. Anexe um cheque nominal à Ker- 
ne! Consultoria e Sistemas, no valor total do seu pedido, e envie para 
ATI Editora S/A - Rua Washington Luiz,9 - gr 408 - RJ - CEP 20230 
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SOFTWARE SUPRIMENTOS 


Jogos e aplicativos p/ MSX 1,2e 2+ Fitas para impressora — Formulario continuo 
Jogos megaram e memory mapper Porta-disquetes — Cabos em geral 
Últimos Lançamentos Disquetes de 5 1/4 e 3 1/2 


A CADA 10 JOGOS, GRÁTIS + 02 
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ACEITAMOS CARTÃO 
HARDWARE DE CRÉDITO 


— COMPLETA LINHA DE PRODUTOS DDX : & (011) 263.1170 
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“Cartão 80 colunas “Kit 2.0 
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Reconhecimento de padrões 


Aprenda a fazer “matching de um padrão com uma cena 


Evandro Seron Ruiz e Aparecido da Costa 





Atualmente a área de Processa- 
mento de Imagens (P.|.) encontra-se 
entre as mais promissoras e emergen- 
tes áreas não só da Ciência da Com- 
putação como também em varias ou- 
tras frentes como a Geociência, 
Robótica, Medicina, etc, por sua vasta 
atuação aplicativa. Dentro dos proble- 
mas que o R.|. ainda tenta resolver de- 
finitivamente, de maneira automática, 
está o de Reconhecimento de Padrões 
ou, em outras palavras, a tarefa de 
identificar uma figura F dentro de uma 
cena G. Por exemplo, temos uma foto 
de uma cena G (ver figura 1) e dese- 
jamos localizar uma figura (um padrão) 
F conhecido dentro dessa cena. 

Utilizando esse princípio, as apli- 
cações do Reconhecimento de Pa- 
drões em Imagens são inúmeras e va- 
riam desde as aplicações bélicas de 
reconhecimento de aviões e foguetes 
inimigos, até as aplicações industriais 
que procuram identificar numa linha de 
produção os produtos com defeito, ou 
seja, numa cena de vários produtos 
procuramos por aqueles que não se 
correlacionam com o padrão esperado. 

Uma das possíveis maneiras de se 
localizar F em G é usar a técnica do re- 
gistro de imagens - “matching”. Fazer 
'matching', ou casamento de um pa- 
drão com uma cena, significa sobre- 
por F a G em várias localidades até que 
todos os pontos de F correspondam a 
todos os pontos de G. Neste local, a 
correlação entre a cena e o padrão é 
máxima, ou seja, para todos os pon- 
tos de F existe um ponto correspon- 
dente em G. 


CORRELAÇÃO 


Uma das medidas mais simples e 
imediatas da similaridade entre um pa- 
drão e uma cena é o quadrado de sua 
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diferença (Distância Euclidiana) ex- 
pressa pela fórmula D = (F - G)**2. 
Para realizarmos essa expressão no 
computador consideraremos que F e 
G são definidos como matrizes de pon- 
tos. Assim sendo, G será uma matriz 
de m linhas por n colunas (G (m,n)), 
e F uma matriz de K linhas por / colu- 
nas (F (k,1)). Quase sempre F é menor 
que G. Assim sendo, a figura 1 pode- 
ria ser representada na forma matricial 
como mostrado na figura 2. 

A procura pelo ponto de registro en- 
tre o padrão e a cena, ou seja, o ponto 
de casamento, é feita posicionando- 
-se o padrão F sobre a cena G em to- 
dos os locais possíveis, o que na no- 
tação escolhida é o mesmo que 
comparar F (u,v) com G (u,v), para u 
acompanhando todas as linhas de 1 a 
le, v acompanhando as colunas de 1 
a k. Essa procura deve ser feita em to- 
dos os pontos (x'y') possíveis de G, ou 
seja, nos (m-k +1) times (n-l+1) pontos. 

Assim fazemos o registro, o 
*matching', usando o princípio da cor- 
relação, ou da cross-correlação, que 
matematicamente é definida como: 


UM EXEMPLO DE “MATCHING: - IDÉIA 


A idéia principal da implementação 
foi fazer a correlação de padrões bem 
definidos e conhecidos sobre uma cena 
como arranjos unidimensionais 
(vetores) e não como matrizes, o que 
facilitou muito a programação. Outro 
detalhe foi o da visualização dos ele- 
mentos desses arrays, onde optou-se 
pela apresentação de caracteres gráfi- 
cos da tela de texto e não de pixels na 
tela gráfica. Notem, nesse último, o 
compromisso entre visualização, ou 
seja, tamanho da cena e padrão, vis- 
tos pelo usuário, e rapidez, já que, se 
operássemos em tela gráfica, o número 
de comparações seria muito elevado 
para uma figura do mesmo tamanho, 
e o desempenho do computador no 
exemplo não seria muito bom para os 
usuários de máquinas pequenas. 

O código-fonte foi desenvolvido 
para ser compilado no Turbo Cwersão 
2.0, mas pode ser facilmente modifi- 
cado para outros compiladores C, 
como os da Microsoft. As funções 
abaixo citadas têm os seguintes obje- 
tivos: 


faz—cena (). - adiciona um ruído à ma- 


1 k 
C(x,y)=5 5 Flu, vW)G(u +x,v+y') 


e para cada valor de (x'y') ter-se-á um 
valor do somatório. Se considerarmos 
cena e padrão entidades binárias, ou 
seja, valores O (zero) para o fundo e 1 
(um) para o contorno, teremos o valor 
máximo de correlação igual ao valor da 
soma dos pontos 1 da matriz F, isso no 
ponto (x—o, y—o) ótimo. 

Caso o padrão só se encontre em 
(x—o, y—o) todos os outros pontos 
apresentarão valor do somatório infe- 
rior a este. 





triz da cena, escolhe uma posição ale- 
atória e nela coloca um determinado 
padrão (figura). 


mostra—cena (). - responsável pela vi- 
sualização da cena na tela. Atribui aos 
inteiros 1 um caracter em forma de 
bloco cheio e aos inteiros O um carac- 
ter achuriado. 


mostra—fig (). - semelhante à anterior 
para visualizar o padrão. 





gera—ruído (). - adiciona um ruído 
branco à matriztda cena. 


cross (). - é a principal função do pro- 
grama, a responsável pela correlação 
entre o padrão e a cena. Sua variável 
localloc marca o ponto máximo de cor- 
relação, o ponto de “matching, ou seja, 
de máxima correlação. 


marcador (). - recebe o valor do ponto 
de 'matching' da função (o ponto num 
array) cross e assinala esse ponto na 
matriz da cena da tela. 


CONCLUSÃO 


Dentro das tarefas básicas de P.. 


n 
cross.c (Turbo C 2,9) 
cross-correiacas 
Evandro Eduardo Seron Ruiz 
Aparecido Doniseti da Costa 
t/ 
4include «stdio.h> 
finclude <conio.h> 
finciude “stdlit.h> 


ou, melhor ainda, de Reconhecimento 
de Padrões, a cross-correlação situa- 
-se entre as tarefas mais simples de im- 
plementação, muito embora possua li- 
mitados recursos diante de 
procedimentos como rotação ou am- 
pliação do padrão na cena. De qual- 
quer modo aí está o início de uma área 
que ainda tem muito a ser explorada. 
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500 /$ tamanho da cena para corelacao $/ 


* figura * . U 
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tdefine N FIG 4/4 numero maximo de figuras 
tdetine TAN FIG 25 /$ tamanho maxiao da figura 
int LETY [TAM FIG] = (1,0,0,0,1, 


int LETM LTAM FIG] 


int ta fig [N FIG] 
int cena [TAM CENJ; 
aain () 
( 
int posicao, linha, coluna; 
int is; 
void mostra fig (int, int, int); 
void mostra cen (int, int); 
void faz cen (int); 
void marcador (int); 
void fresc (void); 
void init (void); 
clrscr (); /4 limpa tela 8/ 
init (); 
fresc(); 
for (i=0; iX4; i++) 
f 
faz cen (i); 
aostra cen (10,3); 
mostra fig (53,10,i); 
gotoxy (3,24); 
cprintt ("Procure pela figura ao lado, ou ..."); 
gotoxy (3,25); 
cprintf ("TOQUE QUALQUER TECLA PARA INICIAR A CROSS-CORR 
ELACAO" ); 
getch (); 
gotoxy (3,24); clreol (); 
gotoxy (3,25); clreol (); 
marcador ( cross (i)); 
) 


getch (); /4 paradinha 4/ 


void faz cen (int fig) 
( 
int col, lin, pos, lin cen; 
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int tpfig; 
void gera ruido (void); 
gera ruido (); 
/4 escolhe coluna e linha aleatorias 
para colocar uma das figuras 4/ 
randonize (); 
lin = randos (16); 
col = random (26); 
pos = lin330 + col; 
pfig = e fig (fig); 
lin cen = pos; 
for (lin=0; lint=4; lintt) 
( 
for (col=0; col(=4; col++) 
í 
cena [lin centcol) = tpfig; 
pfigt+; 
, 
lin cen = lin cen+30; 
) 
: 


void mostra cen (int col, int lin) 
( 
int x,y, lnax,caax; 
int fpn; 
pn = cena; 
lnax = lint+20; 
caax = col+30; 
gotoxy (col,lin); 
for (y=lin; yClmax; y+t) 
for (x=col; x(caax; x++) 
f 
gotoxy (x,y); 
if (pn) 
cprintf ("Lc", BLOCK); 
else cprintf ("Xc”, SPACE); 


) 
: 


void mostra fig (int col, int lin, int fig) 
( 
int x,y, lmax,cmax; 
int tpn; 
pn = fig [fig]; 
lnax = lint5; 
caax = coltô; 
gotoxy (col,lin); 
for (y=lin; y<lnax; y+t) 
for (x=col; x<cmax; x+t) 
! 
gotoxy (x,)5 
if (tpn) 
cprintf ("Lc", BLOCK); 
else cprintf ("Lc”, SPACE); 
pntt; 


| 





SOFT./LIVRE CIRCULAÇÃO 


DE DOMÍNIO PUBLICO, SHAREWARE 


— SISTEMA OPERACIONAL 


* 3000 — XINU: Clone Unix/Xenix (6 discos). 


e 4001 — LEX: Analisador de Lexico, com Busca, Pro- 
cura e Varredura, 
* 4002 — BYACC: Gerador de “Parsing" (5 discos). 


— WINDOWS 


e 2600 — Biblioteca de Utilitários para WINDOWS (15 
Discos). 


- PROCESS/TEXTO 


100 — GALAXY: CLONE WS. (2 Discos) 

101 — CHIWRITER: EdiyGráfico (2 D,). 

102 — PC-WRITE: Proces. Completo (3 D.). 

103 — BLACK-MAGIC: Hipertext (3 D.). 

104 — JOVE: WP./Mainframe, Adaptado p/ PCs 
(30). 

105 —- QUIP: WP Gráfico, p/ 286 (4 D.). 

106 — WORD FUGUE: Suporta Laser, Compat./WS 
(3 Do). 

e 130 — INTEXT: Processador p/ Várias Línguas, 


— INTEGRADOS 


e 200 —- COMPASS: 
lend./Utilit. 

e 201 — SS1: Planil./Process./BD/Comunic,/Cal- 
cul, /UtI|,-DOS (2 Discos), 

e 202 — ALLINONE: Planilha, WP, BD, Comunic, Uti- 
A 


Planil./Process,/Contab,/Ca- 


- BANCO DE DADOS 


WAMPUM: Clone/DB3, Mona/Multius (2 D.). 
PC-FILEdb: Gráficos, Imp./Exp. DB3 (3 D.). 
ZOOMRACKS: Fichário Eletron, (5 D,). 
IMAGE ACCESS: BD p/ Textos e Gráficos. 
ZEPHIR: BD Relacional (2 Discos). 


— PC-PROFESSOR: Ensina/Basic, 

— C-TUTOR: Ensino “C” (3 Discos) 

— TURBOC TUT: Ensino Turbo "C* (2 D,), 

— PASCAL TUTOR: Ensino Pascal (3 D.). 

— LOTUS LEARN: Ensino Lotus (3 D,). 

— TUTOR DOS: 21 Lições/Ensino DOS (4 D.). 

— C++: Tutorial C++ (2 Discos). 

- PC ASSEMBLER HELP: Ensino Assembi, 
(2 D.). 


— FRENCH: Ensino Francês, 

— JAPANESE: Ensino Japonôs, 

— GERMAN: Ensino Alemão, 

— ITALIAN: Ensino Italiano, 

— FLASH CARDS: Dicionário 
(4Dj). 

— CALCULUS; Ensino Álgebra, Trigonometria, 

— VIDEOCHEM: Ensino da Química, 

— GOGOL: Ensino Matem. p/ Crianças, 

— WORD GALLERY: Gráficos p/ crianças. 

— FAST TYPE: Ensino Datilografia. 

— OLE: Ensino Espanhol. 

— ELEMENT STUDY: Tab, Periódica, Química. 

— PC GLOSSARY: Glossário de Informática, 


Inglêstinglôs 


DISK COMMANDO: Clone “Norton”. 
LQPRINTER: Impr./Caract, Grafic, 
MYSTIC PASCAL: Compil. “Pascal”. 
FANCY LABEL: Etiquetas, 

PKZIP SHEZ: Compact. /Descomp. (4 D.). 
COMPACTADORES: De Novas Versões (3 D.). 
— ZIPZAP: Mostra/Edita Setores de Disco. 

- SECUREIT: Protege Arquivos, Segurança. 
— TESSE RACT: Cria Programas TSR (2 D.). 
— HDM: Novoll Gerenc./HD, Password (2 D.). 
— LASER: Coletânea de Utilit. (13 D.). 





HDTEST: ShelVDOS, Teste Hard, 
Floppy (2 D.). 

PRINT CONTROL: Imprime Janela de Telas. 
XBATCH: Utilit. p/ Arquivos Batch, 
BACKUP/RESTORE: Utilit. p/ Backup/Restore, 
DIRECTOR: Interface p/ DOS. 

FILE PATCH: Edita Setores/Arquivos até 
10 MB. 

DOSLOCK: Password p/ HD, 

FUGUE: Interf./DOS, Etiq. c/ Nome, Tamanho 
Arquivos (2 D.). 

VMS40: Simula Memória Expandida. 
MODELS: “Case"Desenvolv./Aplicat./BD. 

PC MASTERCONTROL: Criação de Menus, 
MR. LABEL: Etiquetas, Endereços. 

ACTIVE LIFE: Agenda/Calendário, 
FORMGENN'S: Duplicator de Disquettes. 

PC IRIS: Password p/ DOS e Arquivos. 
ASC2COM: De ASCII para COM, 

UNISCREEN: Gera MenusiJanelas (2 D.) 
TEMESCAL: Ferram. p/ Desenv. /Soltware. 
CALMER: Clone Norton (4 Discos). 

ROBERT: Utilit/HD, Concatena/Criptogr., 
Pesquisa p/ String (2 D.). 

CORE: Testa a “PERFORMANCE” do Disco 
Rígido e Controladora. 

LZEXE: Cria Arquivos Autodecompactav. 


Alinh, 


[XEKKKKKKKKE 


700 — FLUSHOT PLUS: Protege Contra Vírus. 
701 — VIRUSFREE: Detecta/Elimina, Bloqueia Vf- 
rus (4 DJ. 


— BIBLIOTECA DBASE, CLIPPER, MFOX 
* 2400 — Rotinas Utilit/Ferram./Aplicat, (65 D.). 


— COMERCIAIS/FINANCEIROS 


FLOWDRAM: Fluxogramas. 
BAR CODE: Código/Barra, 
FORMASTER: Gerad./Formul. 
CASE: Contab, (3 Discos), 
INVENTORY: Estoque, 
FINANCE MANAG: Contab. 
(2D). 

CHEQUEITOUT: Contro./Impressãa/Cheques. 
INVENTORY: Controle de Estoque, 
INCONTROL: Gerenc./Escritório, Cashflow, 
Inventário, Discagem Autom, Escritório Ele- 
trônico etc. (2 D,). 

PERSONAL PORTFOLIO: Analisador/Apli- 
cações (2 D.). 

AXS; Contabilidade (7 Discos). 

DAYO: Contab. Ctas/Pagar/Receber, 
que, Lista de Preços etc. (23 Discos). 


Partida Dupla 


Esto- 


e 1000 — ASEASYAS: Clone Lotus (2 D.). 

e 1001 — PC-CALC: Funções Matem./Trigon./Estatist, 
(3 Dj). 

* 1003 — INSTANTCALC: Planilha Resid./Memória, 

e 1004 — POWER SHEETS: Planilha 3D, (2 D,). 


QMODEM: Transf./Subdiretórios, Vários Pro-| 
toc, (3 D.). 
PROCOMM: Emula Terminais (2 D.). 
PRIVATE LINE: Micro/Micro, Cabo-RS232, 
GTPOWERCOMM: Conversacional, Modo) 
“Host” (4 D.). 
SERIAL FILE COPY: Transfere Arquivos 2 
Comput. entre 5.25" e 3.5” Via RS232. 
COMUNICAÇÃO: Novas Versões Micro/Micro 
BBS (3 Discos). 

— TELEMATE: Inclue Editor, Permitindo Edição 
Simultânea a Comunicação. Vários Protoco- 
los (3 D.) 


— DESKTOP MANAGER 


— HOMEBASE: Clone SK (3 Discos). 

— NIFTY: Agenda, Calcul., etc. 

— DESKTEAM: Agenda, Calcul., Calend./Re 
sid, Mem. 
MEMTOOL: TSR, Calcul./Calend./Editor, etc. 


DOMÍNIO PÚBLICO SOFTWARE E PROCESSAMENTO DE DADOS LT| 


AV. PAULISTA, 352 - 9º ANDAR - CJ. 97 - CEP 01310 - SÃO PAULO -— SP 
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— GERENCIADORES DE PROJETOS 


PC PROJECT: Crítica, Grafic.”"Gantt” (2 D.). 
BESTGUES: Avaliação Tempo/Tarefa 
Met.“Perr”. 

EASY PROJECT: Projetos Comerc,, Escala 
“Gant”. 

SIMPLE PROJECT: Gráficos de “Gantr”. 
UDECIDE: Avalia Opções p/ Tomada/De- 
cisão. 


PCKEYDRAW: Desktop Publ, (5 Discos). 
DANCADICAM: Animac,/3 D (7 Discos). 
EXPRESSGRAPH: Linhas, Barras, Tortas, 
GRASP: Animac,/Telas (2 Discos), 

CURVE DIGITIZER: Gráficos 2D. (2 D.). 

CLIP ART: Desenhos p/ Editoração Eletron. 
(18 D.). 

TURBOFLOW: Fluxogramas, 

MEGACAD: .2 Vezes + Velos Autocad. (2 D.). 
TYPESETTER: Textos/Gráficos (2 D.). 
RUBICON: Composição Tipográfica (3 D.). 
PC IMAGES: Captura Telas Gráficas, 


e 1680 — MICAL: Diagnóstico Médico (3 Discos). 

e 1681 —- PSICOMED: Compêndio Psicofarmacológico. 
e 1682 — CHIRO-B; Dados para Médicos. 

e 1608 — DENTAL PM: BD p/ dentistas (5 Discos). 

e 1600 — WORLD DIGITIZED: Cartog./Geogr. (4 D.). 

e 1690 — WORLD: 999 Cidades do Mundo no Mapa 
Geográfico c/ Lat., Long. 

VC ADBASE: Catalog./Videocassete. 
FLOPPY CAT: Catalog./Discos, 

BOOK MINDER: Catalog. /Livros/Revis- 
tas/Jornais, 

Bioritmo, Lotto, Fever, Tarot, Iching (3 D.). 
LOTO/SENA/ESPORTIVA: Ajuda a Fazer 
Previsões, 

FORTUNE: Astrol,/Numerol,/H, Chin, 
PC-MUSICIAN PIANOMAN: Música (2 D.), 
OVERLOARD: Gerenc./Condomínios (3 D.). 
PC MECHANIC: Gerenc, Frotas/Veículos. 
TRADUTOR: Auxílio p/ Traduções. 

ELETRO: Instalações Elétricas (2 D.). 

DBS: BD p/ Engenharia Elétrica (5 D.). 
GEOMANCY: Antiga Forma de Divinação, 
FAMILY HISTORY: Genealogia (3 D,), 


e 1601 
e 1602 
e 1684 


e 1603 
. 1683 


e 1606 
e 1607 
e 1609 
1610 
e 5000 
e 5001 
e 5002 
e 1612 
e 1630 


Labirintos, Cartas, Tabuleiro/Dados, Espor- 
te, Aventura: Chess/3D, Poker, Bridge, 
Blackjak, Solitários, Backgammon, Loteria, 
Slot Machine, Pinball, Guerra Espacial, Cor-. 
ridas, Ficção, Mah Jong, etc. (50 Discos). 


- MATEMÁTICA CIÊNCIAS 


e 1800 — PWRSTRB8: Análise Numérica, 

e 1801 — CALCULUS 1: Série Taylor/Fourler, Newton, 
Eq. Ord./Diferenc,, Polinômios, Geom., 
Alg. Linear, Matrizes/Vetores (5 D.). 

e 1802 — STATMAT: Análise Estatística (3 D,). 

e 1803 — CHEMICAL: Estrut, Molecul, 3D. 

e 1804 — XACT: Emula HP12C e HP16C 

e 1805 — CRYSTAL: Gera Modelos em Cristais em 3D. 


E AINDA: Utilitários do XENIX p/ DOS, Conversores, 
Alimentação, Agricultura, Genealogia, Esporte, Biblio- 
teca *C”, Biblioteca Turbo Pascal, Astronomia, Ciências 
Espaciais, Inteligência Artificial, Religião, Quiz, etc, 


MAIS DE 30.000 PROGRAMAS. 


PARA/PC, PC-XT, AT E COMPATÍ- 
VEIS, DISCOS 5.25" E 3.5” 

PREÇO: A PARTIR DE Cr$ 2.000, DO | 
POR CÓPIA 

VIDEOTEXTO: Cr$ 20.000,00 

XINU: SISTEMA OPERACIONAL: 

Cr$ 20.000,00 


288-6898 
“4 (01)551-2344 





void gera ruido (void) 


int icksls 

for (i=0; iXTAM JAN; itt) 
cena [1] = 0; 

randoaize (); 

k= TAM JAN +; 

for (i=0; i<=N RUIDO; i++) 


1 = randon(k); 
cena [1] = 1; 


int cross (int fig) 
! 
int isj,k,1; 
int Joc = 0; 
int fcorr = 0; 
int tpcen, tpfig, fpcaux, fpont fig; 
pont fig = a fig (figl; 
pcen = cena; 
pfig = pont fig; 
for (1=0; i<=15; 
! 
for (j=0; j<=25; jt+) /4 fig percorre colunas da cena $/ 
f 
fcorr=0; 
pfig = pont fig; 
pcaux = prenj 
for (k=0; k(=4; k++) 


it+) /4 fig percorre linhas da cena 4/ 


/4 correlacao figura X cena &/ 


! 
for (1=0; 14=4; 1++) 
f 
if ((Spcaux) == 
fcorrtt; 
if (fcorr == TAM FIG) 
return loc; 
pfigt+; 
pcauxtt; 
) 
praux = praux+25; 
| 
pcentts 
loctt; 
) 
loc = loct4; 
pcen = pcentA; 
) 


return 0; 


(Spfig)) 


void marcador lint posicao) 
( 

int linha, coluna,i; 
linha = posicao/30 + 3; 
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coluna = posicaoi30 + 10; 
gotoxy (45,24); 
cprintf (“JA ENCONTROU 277 
for (i=0; i<50; i++) 

4 


AGUARDE! *); 


í 
gotoxy (G,linha); cprintf ("Lc",SETAE); 
delay (50); 

gotoxy (b,linha); cprintf (*Lc”, NULO); 
delay (50); 

gotoxy (coluna, 24); cprintf ("Lc",SETAB); 
delay (50); 

gotoxy (coluna, 24); cprintf ("Lc”,NULO); 
delay (50); 


a 
gotoxy (45,24); 
clreol (); 
y 
[q ---aecsececacaccescacae=es—s—s petesncacones 7) 
void fresc (void) 
í 
char 411 
char 412 
char 413 
char 414 
char 815 = "4444 
char tvt [5]; 
int à; 
vtLO]=11; vtCL]=124 vtCZ)=13; vtC3]=14; vt(4)=15; 
for (i=0,i<Sji++) 
í 
gotoxy (45,3+i); 
cputs (vt[i]); 
j 
] 


SSL GUS SAMA MUSAS; 
E 
MM DS Se EUaSE; 
ota so 4 
FE CM UML GUNS; 


void init (void) 

í 

clrscr(); 

printf (*Cross-correlacao 1.0in"); 
printf ("Evandro Eduardo Seron RuizlAparecido Doniseti da 
Costa"); 

printf ("FFCLRP - USP jun/91n"); 
sleep (2); 

clrscr (); 

j 

14 fia cross.c 8/ 
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Disquetes: fundamentos 


Saiba tudo sobre seus disquetes 


Carlos Gonçalves 


Os disquetes de 5 1/4 polegadas, também conhecidos 
por minidiscos, discos flexíveis, floppies ou disquetes, são 
seguramente o principal meio de armazenamento de massa 
dos microcomputadores PC e seus compatíveis. 

Desde o lançamento do primeiro modelo PC, em 1981 
no mercado americano, que estes vêm equipados com uni- 
dades de discos (drive) de 5 1/4 polegadas, tornando-se 
assim um padrão. Este meio de armazenamento só veio 
a mudar em 1987 com o lançamento da série PS/2 da IBM, 
onde foram adotadas unidades de discos que usam dis- 
cos de 3 1/2 polegadas conhecidos como microdiscos, são 
mais resistentes e mais duráveis que os de 5 1/4 polega- 
das, além de ocuparem menor espaço físico, facilitando 
o manuseio e o armazenamento dos mesmos. 

Uma das primeiras coisas que você tem que aprender 
a manipular de imediato (quando começa a lidar com com- 
putadores) são os discos flexíveis. Como se sabe, é neles 
que serão armazenadas todas as informações necessárias 
ao seu trabalho no computador. 

Vejamos de forma resumida como se apresenta fisica- 
mente um disco flexível. Considere para tal a Figura 1 que 
mostra um disco típico de 5 1/4 polegadas de diâmetro. 
O disco propriamente dito está envolvido por uma capa 
quadrada em material plástico e semi-rígido com 3 furos. 
O disco por sua vez também é de plástico, porém fino, co- 
berto por uma camada de óxido de ferro, não muito dife- 
rente das fitas cassetes; aliás, o princípio físico aqui en- 
volvido é o mesmo. O furo maior no centro do disco é para 
o eixo central do acionador de discos 
segurar o disco e poder girá-lo dentro 
do envelope, enquanto o furo oblongo 
permite que o cabeçote de gravação/ 
leitura toque a superfície do disco para 
armazenar ou recuperar informações. 
O furo circular menor é chamado furo 
índice, e se alinha no furo do disco em 
rotação, informando à máquina sua 
posição ao girar (sinaliza ao aciona- 
dor o início das trilhas). 

O picote lateral na parte superior 
pode ser coberto por uma fita go- 
mada, fornecida na caixa junto com * 
os disquetes pelo fabricante, a fim de N 
evitar a escrita ou apagamento aciden- 
tal no disco. Uma tentativa de escrita 


Figura 1: anatomia de um disquete de 5 1/4 ao disco 
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capa externa de'proteção 





ou apagamento em qualquer disco com o picote coberto 
provocará uma mensagem de erro pelo sistema informando 
a condição de proteção contra a escrita ou apagamento. 
Isto é de grande utilidade no manuseio dos arquivos, 
evitando-se perdas acidentais. Todo disco flexível vem acon- 
dicionado em envelopes de papel e deve lá permanecer 
quando não estiver em uso. 

A transferência da informação entre o computador e o 
disco, é feita via cabeçote de gravação/leitura que pode 
se deslocar da borda exterior para o centro (Figura 2). O 
sistema é semelhante a um toca-discos, com o cabeçote 
fazendo as vezes do braço fonocaptor, e o disco magné- 
tico substituindo o nosso disco de vinil. As semelhanças 
cessam aqui contudo, pois a informação contida num LP 
é lida de forma linear e não é magnética (está escrita nos 
sulcos espiralados). Em verdade, os disquetes para o PC 
básico e PC/XT são compostos por 40 trilhas concêntri- 
cas e não contínuas, indo da posição O mais externa à po- 
sição 39 próxima do centro, podendo o cabeçote ocupar 
40 posições diferentes. 

O PC/AT, entretanto, exige disquetes de formas seme- 
lhantes, porém com 80 trilhas ao invés de 40 (isto, sem dú- 
vida, permitirá maior capacidade de armazenamento). 

As trilhas, por sua vez, são divididas em partes meno- 
res chamadas setores, numerados de 1 a 9 no PC básico 
ou PC/XT; na versão 1.0 do DOS são numeradas de 1 a 
8. No PC/AT, todavia, cada trilha tem seus setores nu- 
merados de 1 a 15. Cada setor possui um tamanho fixo 
de 512 bytes e a informação pode ser escrita nos dois la- 
dos do disco ou em um lado apenas. Dessa forma existem 
disquetes de dupla face ou simples face, bem como uni- 


orifício central 
picote de 
proteção 
a escrita 


= tha 39 
Z 


disquete 


Janelas de acesso 


eixo central —, 


movimento de acesso 


À TREE 4 


e. 
hi 


cabeças de leitura/escrita 


rotação 


Ae 


Ep” 


f 


braço de acesso 


disquete 


trilha 39 trilha O 


Figura 2: Acionador de disco com um disquete de 5 1/4 


dades de disco correspondentes. Os disquetes de face sim- 
ples com 8 setores por trilha já estão obsoletos e são re- 
manescentes da versão 1.0 do DOS. 

É importante observar que uma unidade de disco de du- 
pla face consegue ler um disco de face simples, porém uma 
unidade de disco de face simples não conseguirá ler um 
disquete de dupla face. Diante dessas informações pode- 
mos determinar a capacidade de armazenamento de um 
disquete de dupla face com 9 setores por trilha (capacidade 
de armazenamento típica de um PC-XT), como segue: 


- 40 trilhas x 9 setores x 512 bytes x 2 lados=368.640 bytes 
isto corresponde a 360 Kbytes (por definição um Kilobyte 
é igual a 1024 bytes). Qual será a capacidade de um dis- 
quete com as características acirna para um PC/AT? Con- 
fira sua resposta com a tabela dada adiante. 


DENSIDADE DE GRAVAÇÃO 


Na literatura técnica 
define-se como número de 
bits que podem ser grava- 
dos num disquete, numa 
circunferência de uma po- 
legada, na trilha mais in- 
terna do disquete. Esta 
medida é referenciada 
como bits por polegada 
(bpi/bits per inch). Os bits 
por polegada variam de fa- 
bricante a fabricante. 
Como exemplo, um fabri- 
cante especifica que drives 
de densidade simples po- 
dem armazenar 2.748 bpi 





setorização soft 





na trilha mais interna. Dupla densidade pode ar- 
mazenar 5.776 bpi. O número de trilhas por pole- 
gadas num disquete de dupla densidade é usual- 
mente de 48 tpi (tpi/tracks per inch), ou ainda 96 
tpi para os disquetes de quádrupla densidade. 


ESTRUTURA ; 3,5 35 
DO DISCO 


Dupla Alta 
Densi-  Densi- 
dade 


Núm. de trilhas 
Setores/trilha 

Caract. p/setor 
Total de setores 
Total caracteres 





Tabela: possíveis organizações de um disquete 


SETORIZAÇÃO SOFT E SETORIZAÇÃO HARD 


Os setores são a unidade básica para armazena- 
mento nos discos. Toda vez que é feito um acesso 
aos dados num disquete, o mínimo de um setor é 
lido ou escrito. Acionadores de discos e disquetes 
são classificados em setorização soft ou hard, de- 
pendendo de como o drive mantém registro de onde 
os setores estão localizados no disquete. 

Um disquete de setorização hard possui um buraco na 
frente de cada setor, normalmente próximo ao centro, e 
servindo de indicador para o drive (veja Figura 3). Por ser 
uma imposição de construção, 'o tamanho e o número de 
setores dos disquetes de setorização hard são sempre cons- 
tantes. 

Por outro lado, os disquetes de setorização soft possuem 
um único furo-índice que indica o início das trilhas. O nú- 
mero de setores por trilha e o tamanho de cada setor são 
definidos por um programa formatador que vem junto com 
o computador. 

O PC da IBM usa disquetes de setores com tamanhos 
variáveis. Por conta disso, todo disquete novo que destina- 
-Se a uso num PC deve ter essa estrutura gravada no disco. 
Este processo é chamado formatação. 


setorização hard 


Figura 3: disquetes de 5 1/4 com setorização soft e hard, 
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partícula de 
fumo q 
6.35 16 “em 


' 
1 impressão 
' 


digital 





superfície do disco 


partícula 
1 . - de poeira 


Figura 4 - mostra aproximadamente o afastamento entre a cabeça flutuante do drive e a superficie'do 
disco (Cerca de um milionésimo de polegada). Com estas tolerâncias, contaminações tais como partículas 


1 - Colocar sempre os disque- 
tes na capa, quando não em 
uso. Isto evitará que poeira, cin- 
zas de cigarros, pó de giz ou 
outras micropartículas presentes 
no ambiente, incidam sobre as 
aberturas do mesmo, contami- 
nando-o. 


cabelo 
humano 


8.876 cm diám. 


2 - Nunca tocar com os de- 
dos no orifício de acesso do ca- 
beçote. Fundamental, pois a 
impressão digital deixada sobre 
a superfície do disco poderá 
dificultar a leitura/escrita no 
meio. 


de fumo, poeira, impressões digitais ou mesmo o cabelo humano podem tornar o drive inutilizado. 


ACESSO AOS DADOS NO DISCO 


Embora o tempo de acesso aos dados nos discos, em 
média, não seja grande, ele é realmente significativo quando 
comparado com o tempo de acesso à memória semicon- 
dutora. Quatro fatores básicos determinam o tempo ne- 
cessário para o acesso aos dados nos discos, sejam dis- 
quetes ou discos rígidos. 


-- Tempo de localização ou latência - É o tempo neces- 
sário para o braço de acesso posicionar-se sobre uma tri- 
lha em particular. Lembre-se de que o braço de acesso 
move-se como uma unidade e, no mínimo, ele está simul- 
taneamente sobre duas trilhas, no caso particular dos dis- 
quetes. 


-- Comutação das cabeças de leitura /escrita - É a ati- 
vação de uma cabeça de leitura /escrita em particular, so- 
bre uma trilha numa das superfícies do disquete. Este 
tempo e desgxrezível pois dá-se à velocidade da corrente 
elétrica. 


-- Intervalo rotacional - Depois de posicionados o bra- 
ço de acesso e as cabeças de leitura/escrita, há um pe- 
queno intervalo de espera até que o setor na trilha passe 
sob ela. 


-- Transferência dos dados - É a ação de transferir os 
dados entre o armazenamento primário e o local na trilha 
do disco, se você está escrevendo, e da trilha do disco 
para o armazenamento primário se você está executando 
uma operação de leitura. 


As unidades usuais de tempo acima são em milissegu- 
ndos (1/1.000s), excetuando a unidade de transferência dos 
dados que é em bytes por segundo. 


CUIDADOS COM OS DISQUETES 


Qualquer usuário que já tenha manuseado um disque- 
te, percebe de imediato alguns ícones acompanhados de 
algum texto na face posterior da capa externa que o en- 
volve, dando informações quanto ao manuseio e conser- 
vação. Na maior parte das vezes, os usuários sequer 
dão qualquer atenção a esse tipo de informação. 

Vejamos por que essas informações são importantes para 
preservar um disquete: 
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3 - Não dobrar ou flexionar o 
disquete. Um disquete empenado não se ajustará adequ- 
adamente na unidade de disco, onde os ajustes são de pre- 
cisão milimétrica. (Veja a Figura 4). 


4 - Jamais colocar os disquetes próximos a campos 
magnéticos. Devido ao fato do disquete ser um meio 
magnetizável, a aproximação de equipamentos ou dispo- 
sitivos que gerem campos magnéticos, poderá adulterar 
ou mesmo apagar as informações lá gravadas. A perda é 
irrecuperável, a menos que você disponha de uma cópia 
backup (cópia de reserva) do disco danificado, de onde 
possa recuperar o que foi perdido. O disquete não se 
tornará imprestável se tal fato acontecer, haverá apenas 
uma perda do conteúdo lá gravado. Portanto, evite pôr 
seus disquetes em cima ou próximos de caixas de som, 
televisores, ímãs, mesas digitalizadoras, tranformadores, 
estabilizadores de tensão e assim por diante. 


5 - Não exponha os disquetes a temperaturas elevadas. 
A idéia aquí é evitar empenos no disquete, que são com- 
postos basicamente de plástico. A temperatura ideal re- 
comendada pelos fabricantes varia de 10ºC a 52ºC, no má- 
ximo. Temperaturas próximas do mínimo são mais 
recomendáveis. 


6 - Insira o disquete na unidade de discos do compu- 
tador cuidadosamente. A pressa continua sendo a ini- 
miga da perfeição. Devido a abertura de entrada do 
disco ser bem ajustada, falta de habilidade aliada a mo- 
vimentos bruscos poderão tornar seus disquetes empe- 
nados e imprestáveis para uso. 


As recomendações acima podem parecer excessivas à 
primeira vista, mas não se iluda, acidentes com disquetes 
com eventuais perdas de valiosas informações acontecem 
todo tempo. Cuidados preventivos são mais fáceis de se 
ter que refazer todo um trabalho que levou dias, como um 
capítulo de um livro que estava gravado no disco aciden- 
tado, além de que a observação desses cuidados torna-se 
um hábito com o passar do tempo. 


DES 
CARLOS GONÇALVES é professor de Introdução à Compu- 
tação e de Linguagens de Programação do Curso de Compu- 
tação da UFMA. 
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Centenas de quadros e gráficos 
404 págs./Form. 17x24 Cód. 637 
CrS 22.540,00 


DESVENDANDO O HARDWARE 
DO PC 

Winn L. Rosch 

A verdadeira Bíblia do Hardware 
552 págs./Form. 17x24 Cód. 633 

Cr$ 24.640,00 


USANDO MS-DOS 

Van Wolverton 

O Guia do DOS atualizado até a 
versão 4.0 - Tradução da 4º 
edição americana 

560 págs./Form. 17x24 Cód. 617 

Cr$ 24.220,00 


Desvendando 
o Hardware do 


Desejo receber da Editora Campus o(s) livro(s). 





QUANT| COD. 








Nome: 


Anexo cheque no valor total do pedido. 


PREÇO | [QUANT] cop. PREÇO | 
Banco: — E cipa pi an 


Nº do cheque: 








Endereço: 








Cidade: 





Estado: 





| 


Cep: 





Assinatura: 

















Cartão: 


Se preferir faça o pagamento com cartão de crédito sem nenhum acréscimo. 


Val. 4 























Preços válidos até 31/12/91 


Nº: 











META O SEU PEDIDO PARA: Rua Washi 


Bradesco e todos os Cartões VISA 








ECIAL 





Não use a memória, use o micro 


Descubra as facilidades e mordomias de uma agenda telefônica. 
Aproveite para aumentar seus conhecimentos sobre 


programação em Clipper. 


Vicente José Moredo 





Este programa tem como objetivo armazenar e orga- 
nizar uma agenda telefônica pessoal ou até mesmo de uma 
empresa. É escrito em Clipper Summer 87, roda com 512 
Kb de memória e usa opcionalmente uma impressora. 

Foi dividido em módulos distintos, e o código-fonte do 
programa está bastante otimizado devido à estrutura de 
programação utilizada. No arquivo AGEPROC.PRG estão 
contidas as procedures usadas várias vezes pelos outros 
módulos (é como se acrescentássemos uma nova biblio- 
teca de rotinas). 


FUNCIONAMENTO 


O funcionamento do programa é simples. Há um menu 
principal onde estão as opções primárias. São elas: 


1. AGENDA TELEFÔNICA - Acessa o módulo de geren- 
ciamento de agenda telefônica. 


1.1 - INSERE NOMES NA AGENDA - É o módulo desti- 
nado à inserção dos registros no arquivo. Quando selecio- 
nado, chama uma tela de entrada de dados onde apare- 
cem 4 campos: NOME com 15 caracteres; 
ESPECIFICAÇÃO com 35; TELEFONE com 12e FAX com 
12 também. Devido ao ritmo com que as empresas estão 
adotando o FAX, achei interessante colocar um campo para 
ele. No entanto este campo pode ser modificado facilmente. 

Quando o campo NOME estiver em branco ou em qu- 
alquer ponto da inserção for teclado [ESC], ou mesmo a 
digitação estiver completa, o programa pede uma confir- 
maçãoo ao usuário. Este tem que definir se quer (Inserir 
o registro, (Clorrigi-lo ou (A)nulá-lo. Se for teclado [A] o 
controle volta para o menu principal. Qualquer uma das 
outras alternativas, [C] ou [|], faz com que o programa per- 
gunte se queremos continuar ou não. Caso positivo, os 
campos são limpos e a inserção começa novamente. Note- 
-se que o registro só será inserido se a tecla [|] for pres- 
sionada. 


1.2 - ALTERA REGISTROS DA AGENDA - Módulo des- 
tinado a alteração de registros já inseridos. Existe a pos- 
sibilidade de escolha do modo com que os registros serão 
procurados e alterados 
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t 
+ AGENDA v2.0 - AGENDA TELEFONICA 

+ VICENTE JOSE MOREDO - 07/91 

+ BURN BITS INFORMATICA 

& MODULO PRINCIPAL 

t 

SET BELL OFF 

SET DATE BRITISH 

SET TALK OFF 

SET SCORE OFF 

SETCANCEL(.F.) 

SET PROCEDURE TO AGEPROC 

SET MESSAGE TO 22 CENTER 

DO VERIFICA 

USE AGENDA INDEX AGENDA 

PUBLIC CERT,CHESP, NOBRE, NCA, BEMOTE , CAMINHO 
NCA=255 

BEMOTE="" 

NOBE=SPACE (14) 

CHESP=SPACE (35) 

OP=1 

























CLEAR 
SET COLOR TO W/B,R 
10,13 TO 14,64 
SET COLOR TO 
8 11,15 SAY "AGENDA v2.0 - AGENDA TELEFONICA - BURN BITS 1 
991º 
& 12,24 SAY “por Vicente Jose Moredo - 07/91 
& 13,30 SAY “e CLIPPER Summer 87' 
INKEY(5) 
DO WHILE .T. 

SET CURSOR OFF 

DO MOLDURA WITH *- MENU PRINCIPAL DE OPERACOES -“ 

8 7,27 PROMPT “AGENDA TELEFONICA" MESSAGE "ACESSA O MOD 
ULO DE MANUSEIO DE REGISTROS E RELATORIOS* 

8 9,27 PROMPT “EDITOR DE TEXTOS" MESSAGE “ACESSA O MODU 
LO EDITOR DE TEXTOS DO SISTEMA 

















8 11,27 PROMPT “CALENDARIO! MESSAGE “ACESSA Q MODULO DE 
CALENDARIO E CONTAGEM DE DIAS ENTRE DATAS" 
& 13,27 PROMPT “CONFIGURA AMBIENTE” MESSAGE “ACESSO O M 
ENU DE OPCDES DE CONFIGURAÇÃO DE AMBIENTES 
& 15,27 PROMPT “UTILITARIOS: MESSAGE “ACESSA O MODULO D 
E UTILITARIOS E COMANDOS DO DISCO! 
8 17,27 PROMPT “FIM DE PROCESSAMENTO! MESSAGE “RETORNA 
O CONTROLE AO SISTENA OPERACIONAL“ 
READ 
MENU TO OP 
DO CASE 
CASE OP=t 
DO AGEMAN 
CASE OP=2 
DO AGETEXT 
CASE 0P=3 
DO AGEDATA 
CASE 0P=4 
DO AGECONF 
CASE OP=5 
DO AGEUTIL 
CASE OP=b 
EXT 
ENDCASE 
ENDDO 
CLEAR ALL 
CLEAR 
SET COLOR TO B/H 
8 11,32 TO 14,46 DOUBLE 
6 12,33 SAY ATE MAIS!“ 
8 13,33 SAY BÚRN BITS * 
SET COLOR TO 
SET CURSOR ON 
E 23,0 
QUIT 


1.2.1 - ALTERA REGISTROS - Inicia uma tela onde pode 
ser alterado um registro por vez, mostrando todos os da- 
dos deste registro. Na parte de cima da tela aparecerá uma 
janela contendo o número total de registros e o número 
do registro corrente. No meio da tela está a janela onde 
estarão as informações de cada registro e abaixo uma ou- 
tra janela contendo uma linha de comandos que podem 
ser executados pelo módulo. Os comandos são: 


1.2.1.1 - PARA FRENTE - Anda o ponteiro do arquivo 1 
registro para frente. 


1.2.1.2- PARA TRÁS - Anda o ponteiro do arquivo um reg- 
sitro para trás. 


1.2.1.3 - PROCURA - Pede um nome ao usuário e caso o 
registro contendo essejnome exista, move o ponteiro até 
ele. Devo lembrar que o método de procura é escolhido 
pelo próprio usuário. Você pode escolher por procura pelo 
arquivo de indexação ou por uma “chave” de procura. No 
primeiro modo, aprocura só vai funcionar se for digitado 
exatamente o que estiver contido no campo. Já no segu- 
ndo, a “chave” de procura significa um “pedaço” do nome 
desejado a ser encontrado. Então, se você digitar “ANA” 
o programa moverá o ponteiro até os registros ADRIANA, 





TATIANA e ANA, por exemplo. Há uma ressalva no se- 
gundo método: ele é bem mais demorado que o primeiro, 
que é praticamente imediato. Aí temos que pesar uma pro- 
cura flexível com uma procura rápida. 


1.2.1.4 - ALTERA - Esta é a alteração propriamente dita. 
Na janela central estão os campos do arquivo e as infor- 
mações de cada registro. Cada campo possui um número 
no seu começo; por este número o. usuário vai definir o 
que deseja alterar: [1] para NOME; [2] para ESPECIFI- 
CAÇÃO; [3] para TELEFONE e [4] para FAX. Após digi- 
tado [A], o programa pede o número do campo; uma vez 
digitado, é aberta uma janela de edição onde estará o con- 
teúdo do campo desejado para alteração. O usuário digita 
e é aberta uma janela de edição onde estará o conteúdo 
atual do campo escolhido para alteração. A partir disso é 
só alterar o que lhe convir e teclar [ENTER]. 


1.2.1.5 - RETORNA - Retorna ao menu principal. 


1.2.2 - ALTERAR POR JANELA DE EDIÇÃO - Também 
serve para alterar os regsitros, mas só que desta vez por 
janelas de edição. Serão mostrados os registros em ordem 
de indexação, um abaixo do outro, na janela. Tecle [ENTER] 
em cima de um campo para alterá-lo. Este mudará de cor 
e então é só digitar o novo conteúdo. Tecle [P] para pro- 
curar um regsitro pelo nome. Terminadas as alterações e/ou 
consultas é só teclar [ESC] para sair da opção. 


e Módulo: HELP.PRG 


+ AGENDA v2.0 - AGENDA TELEFONICA 

t BURN BITS INFORMATICA 

? MODULO HELP - AJUDA AQ USUARIO 

! 

SAVE SCREEN TO HELPS 

SET COLOR TO W+/R 

& 5,8 CLEAR TO 21,71 

2 5,8 TO 21,71 DOUBLE 

& 6,18 SAY "AGENDA - AGENDA TELEFONICA - Versao 2,0" 

SET C 

OLOR TO W/R 

& B,10 SAY “TECLAS PARA CONTROLE DE EDICAO E E 

SCOLHA" 

8 9,10 SAY * 

es 

,10 SAY “[Enter)-)Da entrada nos dados ou efetua escolhas 

nos aenus 

& 12,10 SAY “[Setas]-)Movimenta barras do menu ou cursor! 

& 13,10 SAY “[Home] -)Vai para o inicio do menu ou campo 
“[End] ->Vai para ó fim do menu ou campo 
“[X---] ->Apaga ultimo caractere pressionado” 
[Ins] ->Liga ou desliga o aodo de insercao” 
“[Del] ->Apaga o caracter sob o cursor 

& 18,10 SAY “[*Y] Apaga todo o conteudo de us campo” 

SET COLOR TO B/W 

€ 20,23 SAY “PRESSIONE ALGUMA TECLA PARA SAIR 

SET CURSOR OFF 

INKEY(0) 

SET COLOR TO 

RESTORE SCREEN FROM HELPS 

RETURN 
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* * * 









LISTAGEM PARCIAL 


DATA ATUAL: 02/10/91 





3 VIZINHO 
VICENTE MOREDO 


* TOTAL: 2 registros. 


Listagem parcial do arquivo por chave 


1.3 - APAGA REGISTROS DA AGENDA - Utilizado para 
apagar um ou mais registros, este módulo funciona da se- 
guinte maneira: o programa apresenta as opções de pro- 
cura dos registros. O usuário pode escolher por NOME, ES- 
PECIFICAÇÃO e TELEFONE, além de poder retornar ao 
menu anterior, pelo campo escolhido. Em seguida é pe- 
dida uma “chave'' para procurar os registros que atendam 
à condição. As informações dos campos NOME, ESPE- 
CIFICAÇÃO e TELEFONE, inerentes ao regsitro, são mos- 
tradas em uma janela no meio da tela. Abaixo da janela 
aparece um pedido de confirmação “QUER APAGAR ESTE 
(S/N):”. Confirmada ou não a deleção, o programa salta 
para uma nova pergunta: “CONTINUA PROCURA (S/N):”. 
Se for optado por continuar, até que o ponteiro encontre 
o final do arquivo e toque uma campainha, o programa pro- 
cura registros que atendam a especificação. Após termi- 
nada esta operação, voltamos para o começo do módulo 
onde novamente é pedida a opção de procura desejada. 
Se foram escolhidos regsitros para apagar, quando optar 
por retornar ao menu anterior, o programa exibirá uma men- 
sagem de espera e organizará o arquivo sem os regsitros 
apagados. 


---))) AGEMAN.PRG 
| 
4 AGENDA v2.0 - AGENDA TELEFONICA 
4 BURN BITS INFORMATICA 
4 MODULO MANUSEIO DE REGISTROS 
1 
OPMAN=1 
DO WHILE .T. 

DO MOLDURA WITH 
A - 

& 8,27 PROMPT "INSERE REGISTROS NA AGENDA! MESSAGE “INS 
ERIR REGISTROS NO ARQUIVO DE DADOS 

& 10,27 PROMPT “ALTERA REGISTROS DA AGENDA! MESSAGE "AL 
TERAR REGISTROS INSERIDOS NO ARQUIVO DE DADOS" 

E 12,27 PROMPT "APAGA REGISTROS DA AGENDA” MESSAGE "APA 
GAR REGISTROS DO ARQUIVO DE DADOS" 

& 14,27 PROMPT “EMITE LISTAGENS DO ARQUIVO! MESSAGE “EM 
ITIR LISTAGENS DIVERSAS DO ARQUIVO DE DADOS 

& 16,27 PROMPT “RETORNA AQ MENU PRINCIPAL! MESSAGE “RET 
ORNAR AO MENU PRINCIPAL" 

MENU TO OPMAN 


- MODULO AGENDA TELEFONIC 
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BURN BITS INFORMATICA * * * 
AGENDA v2.0 - AGENDA TELEFONICA 
DO ARQUIVO POR NOME — CHAVE="U 


COLABORADOR DE MICRO-SISTEMAS 













Q11 950 0606  -—- e 
011 9i2 6400 011 91X 0461 





DO CASE 
CASE OPMAN=1 
DO AGEIN 


CASE OPMAN=2 
OPMENUAL=1 
é 8,24 CLEAR TO 16,55 
& 10,27 PROMPT "ALTERAR REGISTROS! MESSAGE 
"ALTERAR /CONSULTAR REGISTROS UM À UM COM TELA UNICA 
& 12,27 PRONPT "ALTERAR POR JANELA DE EDICAO' 
MESSAGE “ALTERAR/CONSULTAR REGISTROS POR JANELA DE EDICAO 
8 14,27 PROMPT RETORNA AO MENU ANTERIOR! MESSAGE 
RETORNA AO MENU ANTERIOR 
MENU TO OPMENUAL 
IF CPMENUAL=1 
DO AGEALL 
ELSEIF OPMENUAL=2 
DO AGEALZ 
ELSEIF OPMENUAL=3 
LODP 
ENDIF 
CASE OPMAN=3 
DE AGEPA 
CASE OPMAN=4 
DO AGEREL 
CASE DPMAN=5 
EXIT 
ENDCASE 
ENDDO 





1.4 - EMITE LISTAGENS DO ARQUIVO - É este módulo 
que vai fornecer ao usuário as informações gerais da sua 
agenda. Nele estão disponíveis as opções de LISTAGEM 
INTEGRAL DO ARQUIVO, LISTAGEM PARCIAL POR 
NOME e LISTAGEM PARCIAL POR TELEFONE. Na pri- 
meira o programa lista a agenda inteira sem restrições. Já 
na segunda ele pede uma “chave” de procura que nada 
mais é do que as iniciais do NOME que você gostaria de 
listar. Na teceira, o programa pede um prefixo ou mesmo 
um telefone desejado para listar. Isto quer dizer que se o 
usuário digitar “011 299” serão impressos os registros com 
“QN 299 1765" e “011 299 0101", por exemplo. No final de 
todas as listagens é impresso o número de registros listados. 
Em todas as listagens são impressos o NOME, a ES- 
PECIFICAÇÃO, o TELEFONE e o possível FAX. 






E AMAZÔNIA 


adventure texto 











[] SERRA PELADA 
adventure texto ............ 


PC 


Lançamento especial: 


MSPC Listagens - coletânea dos melhores programas publicados 

na revista MICRO SISTEMAS, da edição 97 até a edição 106. 

Ao todo são 16 programas, gravados em 3 discos. Cada pro- 
grama ocupa um diretório. São eles: 












O ANGRA 
adventure gráfico ........ 19.950,00 
































Gerenciador de arquivos . MS 97 

Be dice Cálculo de dierença en M5 99 
= E Cadastro de funcionários MS 100 

Pequenos utilitários . MS 103 


Ponha uma vírgula no teclado 
Memória à vista ........ 


Uma vacina tríplice .......... MS 104 
Dê um feedback ao teclado MS 104 
Como renomear diretórios .. MS 104 

Uma entrada de dados ... MS 104 


Do vídeo p/impressora .. 
Do clinper p/o Cobol 
Serenata .. 


















PRO KIT compac 
compactador .. 










22.200,00 

















PROGRAMAS PARA MSX 


54 3% Preço 

O [O GRAPHOS III - editor gráfico ..,.... 19.500,00 
GRAPHOS PRO - ed. gráf. prof. .... 38.974,00 
MÓDULO TELAS - editor de telas .. 24.245,00 
MÓDULO LETRAS - letras/shapes .. 24.245,00 
MÓDULO PRINTER -tabelas/impres. 24.245,00 
Alfabetos 1 - banco de letras 4.485,00 
Telas 1 - banco de telas ...... 4.485,00 
Shapes 1 - banco de figuras e 4.485,00 
Pacote 1 - figuras, tabelas, alfabetos 4.485,00 





Os programas da PRO KIT para 
PC são compatíveis com mi- 
cros XT / AT, 512 Kbytes 











D 
D 
a 
a) 
D 
D 
o! 
| 
o) 
a) 
a 
a 
0 
a 


PRO KIT zappor - editor de discos ....... 21.450,00 ond (mínimo) de RAM, placa grá- 
PRO KIT scanner - capturador de figuras 21.450,00 Marque os programas que fica CGA e monitor monocro- 
PRO KIT files - gerenciador de discos ... 21.450,00 deseja receber em sua casa e preencha o mático. 

PRO KIT rot - utilitário p/módulos 21.450,00 cupom abaixo de forma legível. Anexe um 

PRO KIT formiat - formatador especial .. 21.450,00 cheque nominal à PRO KIT Informática 

PRO KIT topview - editor de animações 21.450,00 e Editora Ltda, no valor total do pedido, e remeta para a Caixa Postal 108.046, 


Cep 24120, Niterói - RJ. Seu pedido será prontamente atendido. 
EDITOR 3,4 - editor de adventures ....... 24.440,00 
AMAZÔNIA - adventure texto 12.480,00 
SERRA PELADA - adventure 12.480,00 
| E Digital BOOK 1- o imo eletrônico 11.800,00 


Nome: 





from 





Endereço: 
Cidade: 
Cep: 








ATENÇÃO: Os programas da série PRO KIT e os adventures são com- 
patíveis com o padrão MSX de acesso ao drive por portas (interfaces 
Microsol, TPX, DMX e Expand). Estão fora desse padrão e portanto 
não funcionarão perfeitamente nas seguintes interfaces: DDX 2.0, 
SHARP, LEOPARD e EXPERT DDPLUS. 


Chequen": Valor Cr$ 





1.5 - RETORNA AO MENU PRINCIPAL - Retorna ao menu 
principal. 


2. EDITOR DE TEXTOS - Acessa o editor de textos do pro- 
grama. Este editor é destinado para textos em ASCII. O 
menu de opções do editor contém: 


Structure For C: AGENDANAGENTIA. dbF 
119 
04/20/91 


Wi dth 


database 


Number of data records 
Nate of last update 
Field Name 


Figld Tyre Dec 
Character 
Character 
Character 
Character 


1º NOME 
e ESPECTI 
3 TELEF 
4 FAX 
xx Total xx 


Estrutura do arquivo AGENDA. DBF 


2.1- P/EDITOR - Passa para a tela de edição que é o editor 
de textos propriamente dito. 


2.2 - LER ARQUIVO - Carrega um arquivo do disco na me- 
mória do editor, lembrando que o que estiver na memória 
será apagado. 


2.3- GRAVAR ARQUIVO - Grava o conteúdo atual da me- 
mória em um arquivo do disco. 


2.4 - SOMAR - Adiciona ao conteúdo atual da memória 
o conteúdo de um arquivo em disco. 


2.5 - LIMPAR - Limpa a memória atual do editor. 
2.6 - DIRETÓRIO - Exibe o diretório do disco. 
2.7 - RETORNA - Retorna ao menu principal. 


3. CALENDÁRIO - Acessa o módulo de calendário do 
AGENDA. É bom lembrar que este módulo não imprimirá 
calendários, na impressora, de um determinado mês ou ano. 
É uma simples consulta de datas na tela. 


3.1 - DIFERENÇA ENTRE DATAS - Você digita uma data 
inicial e uma data final. O programa lhe retorna a diferença 
em dias que existe entre essas datas. Exemplo: 02/10/91 
e 23/10/91 retorna 21. 








| - MODULO ALTERA REGISTROS - 
[O hruivo TEM 27 REGISTROS. REGISTRO ATUAL: 24 








CLINOME: VICENTE MOREDO 
C2NESPECIFICACAO: COLABORADOR DE MICRO-SISTEMAS 
(3ITELEPONE: QUI 912 6400 CAIPAX: QUI 912 0461 








PARA FRENTE 


PAR TRAS PROCURA ALTERA RETORNA 





AGEM: 
MOVE O PONTEIRO DO ARQUIVO UM REGISTRO PARA FRENTE 














Alteração pro registros 
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e Módulo: AGEPROCG.PRG 


AGEPROC.FSG 
+ BBENDA 42.0 - AGENDA TELEFONICA 
1? EUSN GITS INFORMATICA 
1 ARQUIVO DE PROCEDURES 





1 

PROCEDURE MCLDURA 

FARAMETES TITULO 
CLEAR 


SET COLOR TO B/H 
€ 0,6 TO 24.79 
SET COLOR TO 4+ 
8 1,7 SAY SPACE(Z3)+ AGENDA v2.0 - E 
URNA BITS 1991 +SPACEIZA) 
8 4,2 5AY SPACE(IS-. LEN(TITULO)/Z) )4TITULOASPACE(I8-LLE 
NETITULO)/21) 
SET COLOR TO 
8 2,2 TO 20,77 
833 TO 5.76 
ê SAY MENSAGEM: 
8 21,2 TO 23,77 
o 
PRECEDURE CENTRO 
PARAN TERS LINnA? NEN NIM 
22,3 SAY SPACE.T3) 
K=LENIMENSA) 
SEI COLOR TO W+ 
& LINHA,39-(X/2) SAY MENSA 
3ET COLOR TO 
RETURN 
PROCEDURE VERIFICA 
IF NOT. FILE( AGENDA.NTX à 
CLEAR 
SET COLOR TO ht 
& 23,4 SAY CRIANDO INDICE 
.5ET COLOR TO 
USE AGENDA 
IF DOGEMRARHO O 


























RITO W+ 


h CONFIGURAÇÃO O DO SISTEMA! FAVOR VERIFIC 








INDEX CN NOME TO AGENDA 
USE 
ENDIF 
RETURN 
PROCEDURE MOSTRA 
SET COLOR FO W+ 
& 10,12 SAY LIINCME: 
| iZ.12 SAY “[23ESPECIFICACAO: 
: MadZ é ed “[BITELEFONE: 
8 14,40 3AW Ca)FAk: 
SET COLO R E 




















SOLAR INFORMÁTICA 















PC XT/AT 












CX.POSTAL 11743 






















CEP. 05090 - SÃO PAULO - SP 
SOFTWARES & HADWARES FONE (011) 833-9355 
JOGOS PC XT/AT 
688 ATTACK SUB Il HARLEY DAVIDSON STREET ROD | 
ALTERED BEAST (2) —HEANY METAL (1) — STREETRODII (4) 
ASTERIX (2) HEROES OF THE LANCE ) STRINER (1) 
BAAL (VIDEO EGANGA) (3) — HEROES QUEST! (10) STUNT DRIVER (4) 
BALLISTIX (1) HILLS FAIR (2) STUNTS (4) 
BATTLE HAWKS 1942 (2) — HOSTAGES (1) SUPER HANGON (1) 
BATTLE OF BRITAIN (4)  IFIT MOVES SHOOTIT (3) — TAKE DOWN (3) 
CABAL (2) IMPOSSIBLE MISSION II (1) TEENAGE MUTANT TURTLES NINJA | (4 
CALL OF ARMS (1) INDIANA JONES IN TEMPLE (1) — TESTDRIVEI tá 
CAPITAN TRUENO (1) INDIANA JONES CRUZADE ACAO (2) — TESTDRIVEI (2) 
CARMEM SAN DIEGO WORLD fl) INDIANA JONES CRUZADE ADV (6) — TEST DRIVE II (VIDEO EGANGA) (3) 
CARMEM SAN DIEGO EUROPE 1 INDY 500 MILES (2) — THE ANCIETOF WAR IN SEA (1) 
CARMEM SAN DIEGO TIME (3) JOE MONTANA FOOTBALL (5) THE BOOK OF MOEBIU (2) 
CASTLEVANIA (2) KINGQUESTILAO IV (14) — THEXDERI (1) 
CENTURION (VIDEO EGANVGA) (3) — LAKERSXCEITICS (2) — THEXDERII (3) 
CHARLIE CHAPLIN (1) LASTNINAI (2) TITANIC (2) 
CODENAME: ICE MAN (9) LASTNINAI (2) — TRACONH (3) 
COMBAT COURSE (1) LEISURE LARRY AO II (16) TUNNELS OF ARMAGEDON (2) 
CONQUEST OF CAMELOT (10) LHX ATTACK CHOPPER (2) — ULTIMAV 5 
CONTRA (1) LIFE&DEATHI (2) VIAGEM AO CENTRO DA TERRA 6 
CRIME WAVE (VIDEO EGANGA) (8) LODE RUNNER (1) — WEIRD DREAMS (2) 
DARK CASTLE BLOW BIOW BONING (3) — WOROFFS PINBALL(VIDEO EGANGA) (1) 
DAVID WOLF SECRET AGENT 6) MADMIKX (1) XADREZ PARA WINDOWS (1) 
DAYS OF THUNDER (8) MANIAC MANSION ATUALIZADO (2) — XENONII (3) 
DONI GO ALONE (2) — MENACE (VIDEO EGANGA) 2) ZACMACKRAKEN (2) 
DRAGON STRICK (4) MICKEY MOUSE Bo Em. 
DRAGON SLAIERS | (13) MISTERY MASTER (1) 
EARL WEAVER BASEBAL (1) NIGHT SHIFT (VIDEO EGANGA) (4) 
ELITE (1) NUCLEAR WAR (2) 
EXOLON (2) OLIVER AND COMPANY (2) 
EYE OF THE BEHOLDER (5) — OVERLORD (VÍDEO EGANGA) (5) 
F 15 STRICK EAGLE | (1) PRINCE OF PERSIA (2) 
F 15 STRICK EAGLE Il 2 RASTAN SAGAN (2) 
F 16 COMBAT PILOT 2) — RENEGADE (1) 
E 19 STEALTH FIGHT É) RISK OF WAR (2) 
FACE OFF HOCKEY ) ROAD RUNNER (PAPA LEGUAS) 1 HEART 
FACES (1) SENTINELS WORLDS FUTURE 8) rip 
PRE POnER À (2) SIMBA AND THRONE OF FALCON (2 SPACE QUEST IV 
FREEDY HARDEST (1) SPACE QUEST IAO II cs) 
FUTURE MARS ER (2) MAN QUANTA 
GAMES ' ti  SARDEFENSER IM A) o) BREVE: WING COMMANDER II, PRINCE OF PERSIA [| 
GAUNTLET | (1) — STARGOOSE (1) : 
GAUNTLET f ei (2) STAR MOVIK E (3) MOON WALKER, GP MONACO, ETC. 
GHOST BUSTERS Il 4) STAR TRECK INTERPRI 1) à 
GOLD RUSH 5) STAR TRECK V (VIDEO EGANGA) (5) ATENÇÃO — OS NÚMEROS ENTRE PARENTE: 
GOLDEN AXE (2) STELAR 7 (2) SES INDICAM QUANTOS DISCOS CADA JOGO 
GP CIRCUIT - DISK CGA (1) STELL TUNDER ê OCUPA, PARA OBTER O VALOR MULTIPLIQUE 
GP CIRCUIT - DISK EGA (1) STREET FIGHTG MAN 3) O MESMO PELO NÚMERO DE DISCOS, 
GRAVE VEARDAGE (2 
GROVER ANIMAL ADVENTURE 
APLICATIVOS DOMÍNIO PUBLICO 
AGENDA PESSOAL (1) AGENDA DE TELEFONES E COMPRO- DELL TEST (1) TESTE DE MICRO E SEUS PERIFÉRICOS LO- 
MISSOS EM PORTUGUÊS ATLAS PC (1) MAPA E INFORMA- TUS TUTOR (1) ENSINA TODOS OS COMANDOS DO LOTUS 





ÇÕES DOS CONTINENTES E SEUS PAÍSES COPY II PC V7O 1,2, 3 MONOGRAFIX (1) EDITOR DE TEXTOS PC KEIDRAW 
(1) COPIADOR DE DISCOS CURSO WS 2000 (1) APRENDA (5) ÓTIMO EDITOR DE GRÁFICOS COM MUITOS RECURSOS 
TODAS AS FUNÇÕES BÁSICAS DESTE EDITOR DE TEXTOS TEMOS MUITOS OUTROS TÍTULOS. 


CATÁLOGO ELETRÔNICO PC XT/AT 


2 DISQUETES CONTENDO TODA A NOSSA REI O DE JOGOS E APLICATIVOS 
POR CATEGORIA E COM DESCRIÇÃO, asa DE MANUAIS E SENHAS QUE DIS- 
POMOS, EQUIPAMENTOS E SUPRIMENTOS QUE COMERCIALIZAMOS, E AINDA 
O JORNAL HOTLINE — PC NEWS ONDE VOCE ENCONTRA AS MAIS INCRÍVEIS 
DICAS DE JOGOS, INFORMAÇÕES SOBRE O MERCADO, PROGRAMAS E MUITO 
MAIS. TUDO ISSO NA TELA DO SEU MICRO. 

TAXA DE ENVIO: REFERENTE A DISCOS E DESPESAS: Cr$ 1.700,00 OU SE PRE- 
FERIR TRAGA 2 (DOIS) DISCOS EM NOSSA LOJA E SERÁ GRATUITO. 
EQUIPAMENTO NECESSARIO: 2 DRIVES OU WINCHESTER, VIDEO CGA, E IM- 
PRESSORA (OPCIONAL) PARA IMPRESSÃO DE LISTA E PEDIDOS. TEMOS TAM- 
BÉM CATÁLOGO GRÁTIS. 

VALIDADE NOVEMBRO-DEZEMBRO/91. (RECORTE OU TIRE XEROX E ENVIE) 





MSX CENTER 


* JOGOS & APLICATIVOS PARA MSX 1, MSX 2, MSX 2 PLUS, 
* ÚLTIMOS LANÇAMENTOS DO JAPÃO E EUROPA. 


* REVENDA ANGEISA , A.CV.S— TRANSFORMAÇÕES EM MI- 
CROS MSX 2.0+, DRIVES 5 1/4 E 3 1/2 360 K OU 720 K. 


* DIVERSOS— MEGA RAM 256K, MODEM, INTERFACE DRI- 
VE, FORMULÁRIOS, ETIQUETAS, ETC. 


* EXPERT BOOK PLUS— LIVRO COM DICAS IMEDIATAS DE JO- 
GOS MSX 1/2/2 PLUS, 


NOME: 
SOLICITE CATÁLOGO. ESPECIFIQUE MICRO 





END. 





CIDADE: 








ESTADO: 
CEP: 





ATENDEMOS PELO SEDEX A COBRAR— FAÇA SEU PEDIDO 
POR CARTA OU TELEFONE, E RECEBA E PAGUE NO COR- 
REIO MAIS PERTO DE SUA CASA. 








PROFISSAO: 








EQUIPAMENTO: 





& 10,21 SAY NOME 
8 17,30 SAY ESPECIF 
6 14,25 SAY TELEF 
é 12,48 SAY FAX 
RETURN 
PROCEDURE CABECA 
PARANETER DEB 
IF OPSAI="1" 
? CHR(27)+E' 
7 SPACE(LO)H E 24 
rr 


BURN BITS INFORMATICA + 


7 SPACE(23)+ AGENDA v2.0 - AGENDA TELEFONICA 
? SPACE(39-(LEN(DEB)/2)) +DEB 
97 CHR(Z7) E" 

ELSE 

PSPACE(IO)H E 44 


BURN BITS INFORMATICA 4 
14 
7 SPACE(23)+' AGENDA v2.0 - AGENDA TELEFONICA 
? SPACE(39-(LEN(DEB)/2)) +DEB 
ENDIF 
PNUME=PNUME + 1 
RETURN 
PROCEDURE SINAL 
SET COLOR TO W+/R 
é 11,26 TO 13,52 
8 12,27 SkY REGISTRO NÃO ENCONTRADO !' 
SET COLOR TO 
INKEY (3) 
RETURN 
PROCEDURE NEXISTE 
SET COLOR TO M/R 
8 11,26 TO 13,51 
8 12,27 SAY “ARQUIVO NAO ENCONTRADO ! 
SET COLOR TO 
INKEY(3) 
RETURN 
PROCEDURE AVIALTE 
DO CENTRO WITH 22, TECLE [ENTER] ALTERAR, CP] PARA PROCURA 
R POR NOME, [ESC] PARA SAIR' 
RETURN 





3.2 - SOMA DE DIAS EM UMA DATA - Você digita uma 
data desejada e um certo número de dias a ser adicionado 
a esta data. O programa retorna a data vigente e ao tér- 
mino dos dias digitados. 


3.3- SUBTRAI DIAS DE UMA DATA - Digita-se uma data 
e um certo número de dias a serem subtraidos desta data. 
É retornado a data vigente a “X” dias atrás. 


3.4- DIA DA SEMANA - Retorna o dia da semana de uma 
data qualquer digitada. 


3.5 - RETORNA - Retorna ao menuwfinncipal. 


4. CONFIGURA AMBIENTE - Acessa o módulo para con- 
figurações de ambiente de trabalho. Nota: a) todas as 
opções de configuração possuem uma pequena explicação 
antes de confirmar as mudanças; b) as mudanças efetua- 
das são apenas temporárias (enquanto o programa estiver 
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na memória). Caso queira modificá-las permanentemente, 
deve-se alterar o código fonte. 


4.1 - CAMPAINHA ON/OFF - Escolhe se a campainha do 
Clipper será tocada toda vez que um campo de digitação 
for preenchido. O default é OFF. 


4.2 - MOSTRA (INSERT) - Deixa à mostra ou não a pa- 
lavra (INSERT) no canto direito superior da tela, quando 
esta função estiver ativa. O default é não mostrar. 


IGENDA v2.8 - BUBA BITS 1991 
MODULO EDITOR DE TEXTOS 


Linha:0l Coluna;00 Configurada puma opemar em 255 colunas, 





NOME DO ARQUIVO: (ESPERA 


PYEDITOR LER ARQUIVO ECEERACICNIÇIO SOMAR LIMPAR DIRETORIO RETORNA 


GRAVA ARQUIVO DA MEMORIA NO DISCO E DIRETORIO ATUALS 


Editor de textos ASCII 


4.3 - NÚMERO DE COLUNAS DO EDITOR - Modifica o 
número de colunas que o editor de textos vai trabalhar e 
tabulas as linhas. 


4.4 - ESCOLHE FILTRO DO ARQUIVO - Esta opção torna 
o programa flexível o suficiente para efetuar qualquer tipo 
de procura e escolha de registros. O usuário escolhe uma 
palavra ou parte de uma palavra desejada para constar den- 
tro do campo ESPECIFICAÇÃO. Se esta condição existir 
em algum registro do arquivo, o Clipper filtra o arquivo de 
dados de modo que apenas constem regsitros que aten- 
dam a tal condição. 

Por exemplo, escolher a palavra “CONSTRUTORA” 
como filtro fará com que nas listagens gerais, alterações, 
etc só apareçam registros que tenham esta palavra no 
campo ESPECIFICAÇÃO. Isto multiplica por dois a capa- 
cidade de triagem do programa. 


4.5 - RETORNA AO MENU PRINCIPAL - Retorna ao menu 
principal. 


+ AGENDA v2.0 - AGENDA TELEFONICA 
4 BURN BITS INFORMATICA 

+ MODULO INSERE 

t 


DO MHILE .T. 

DO MOLDURA WITH '- MODULO INSERE REGISTROS -* 

DO CENTRO WITA 22, INSIRA OS DADOS CORRETAMENTE - CONFI 
RME OPERADAS 

8 4,13 TC 16,66 

NO=SPACE(4S) 








ES=SPACEIIS) 
TE=SPACE(I2) 
A=SPACE(IZ) 
RESP= "1 
COSN='S' 
E 5.15 SAY NOME: GET NO 
8 10,15 SAY “ESPECIFICACAO:" GET ES 
& 17,15 Shy TELEFONE: GET TE 
8 14,15 SAY FAX: GET FA 
SET CURSOR ON 
READ 
SET CURSOR OFF 
NO=UPPER (NO) 
ES=LPPER(ES) 
IF LASTKEY()=27 
EXIT 
ENDIF 
IF NO=SPACE(SS) 
2 CHR(T) 
LOOP 
ENDIF 
IF CA=SPACE(IZ 
FA============= 
ENDIF 
DO CENTRO WITH 22, [1] INSERE REGISTRO - [C) CORRIGE DA 
DOS - [AJ ANULA INSERCAO' 
E 17,18 TO 19,62 
8 18,20 SAY (I)NSERE, (C)ORRIGE OU (AJNULA (1/C/A):) 5 
ET RESF PICTURE 
SET CURSOR ON 
READ 
SET CURSOR OFF 
IF RESP="0" 
+O0P 
ENDIF 
IF RESP="A' 
EXIT 
ENDIF 
iF RESP="1º 
APREND BLANH 
REPLACE NOME WITH NG 
REPLACE ESPECIF WITH ES 
REPLACE TELEF WITH TE 
RESLACE FAX WITH FR 
ENDIF 
DO CENTRO WITH 22. (9) CONTINUA INSERINDO - (N] RETORNA 
AO MENU PRINCIPAL 
& 20.25 TO 22.81 
21,17 SAY "QUER CONTINUAR (S/N): 





BET COSN FICTURE "! 





SET CURSOR ON 
READ 
SET CURSOR OFF 
IF COSN='S" 
Loor 
ELSE 
EXIT 





5. UTILITÁRIOS - Acessa o módulo de utilitários do sis- 
tema, onde você encontará as opções de EXIBIR 
DIRETÓRIOS, COMANDO DO DOS, DELETAR ARQUI- 
VOS, RENOMAEAR ARQUIVOS, FORMATAR DISCO E 
RETORNA, lembrando que para a opção FORMATAR 
DISCO funcionar é necessário que o arquivo FORMAT.COM 
do DOS esteja no diretório corrente. 


6. FIM DE PROCESSAMENTO - Fim do programa. O con- 
trole volta para o PROMPT do DOS. 


INSTALAÇÃO 


A instalação do programa é bem simples, e a primeira 
coisa a fazer é criar a estrutura do arquivo AGENDA. DBF. 
Sua listagem segue'anexa ao código-fonte. O arquivo de 
índice AGENDA.NDX é criado automatimente pelo pro- 
grama toda vez que não se encontrar no diretório corrente. 


NOTA: EXEMPLO DE COMPILAÇÃO E LINK-EDIÇÃO 


CLIPPER AGENDA/HELP 

CLIPPER AGENDA/AGENDA 

TLINK 

AGENDA + HELP AGENDA /AGENDA, ,CLIPPER + EXTEND 


e, 
VICENTE JOSE MOREDO cursa Análise de Sistemas na Uni- 
versidade Paulista - UNIP. Possui um PC XT e programa em Clip- 
per, dBase Ill, Pascal e Basic. 


* Módulo: AGEDATA.PRG 


4 AGENDA vZ.0 - AGENDA TELEFONICA 
t BURN BITE INFORMATICA 
+ MODULO CALENDARIO 
' 
GEDATR=! 
DO WaiLE AT. 
20 MOLDURA WITH = MODULO CALENDARIO - 
& 8,27 PROMPT DIFERENCA ENTRE DATAS! MESSAGE MOSTRA A 
DIFERENCA EM DIAS DE DUAS DATAS DIGITADAS 
8 10,27 PROMPT SOMA DE DIAS EM UMA DATA MESSAGE CADIC 
ICONE n DIES À UMA DATA E RETORNA À DATA RESULTANTE 
& 12.27 PROMPT SUBTRAL DIAS DE UMA DATA" MESSAGE ' SUBT 
apl or DIAS DE UMA LATA E RETORNA À DATA, RESULTANTE 
ê! 
4,17 PROMPT DIA DA SEMANA MESSAGE RETORNA O DIA DA SEMA 
NA QUE CRIRA EM UMA DATA DADA 
ê 7 PROMET RETORNA 
AG MENU PRINCIPAL MESS 
AGE é 











CENTRO WITH 22, DIC DATAS DESEJADAS PhnA Cr 
DIFESENCA 
ê 16,25 TO 14,55 


8 ii2T AY DATA INICIAL: 
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8 13,27 SAY DATA FINAL: * GET DZ 
SET CURSOR ON 
READ 
8 15,23 TO 17,53 
& 15,05 SAY DIFERENCA: +STRIDZ-DLj+ DIA(S) 
DO CENTRO WITH 22, TECLE ALGO PARA CONTINUAR...” 
INKEY (100) 
SET CURSOR OFF 
CASE OFDATA=2 
1=DATE() 
N1=6 
8 7,23 CLEAR TO 17,51 
DO CENTRO WITH 22, DIGITE À DATA DESEJADA PARA SER 5 
COM OS DIAS 
8 10,25 TO 14,51 
B 1127 SAY DATA DESEJADA: BET DI 
8 13,27 SAT "No. DE DIAS:" GET Nº PICTURE "99999 
SET CURSOR ON 
READ 
8 15,23 TO 17,53 
? 16,25 SAY "DATA RESULTANTE: “+DTOC(DI+NI) 
DO CENTRO WITH 22, TECLE ALGO PARA CONTINUAR . . 
INKEY (100) 
SET CURSOR OFF 
CASE OPDATA=3 
DI=DATE() 
Nt=0 
& 7,23 CLEAR TO 17,51 
DO CENTRO MITH 22, DIGITE À DATA DESEJADA PARA SER 5 
UETRAIDA DOS DIAS 
8 10,25 TO 14,51 
8 11,27 SAY DATA DESEJADA: GET Di 
€ 13,27 SAY "No. DE DIAS:” GET Ni PICTURE “99999 
SET CURSOR CN 
READ 
8 15,23 TO 17,53 
€ 16,25 SAY DATA RESULTANTE: “+DTOCIDI-NI) 
DO CENTRO WITH 22,  TECLE ALGO PARA CONTINUAR +. +! 
INKEY(I0O) 
SET CURSOR OFF 
CASE OFDATA=4 
DI=DATE() 
8 7,23 CLEAR TO 17,51 
DO CENTRO WITH 22, DIGITE A DATA DESEJADA PARA RETOR 
NAR O DIA DA SEMANA 
8 10,25 TO 12,51 
€ 11,27 SAY DATA DESEJADA: * GET DI 
SET CURSOR ON 
READ 
D2=CDOW(D1) 
IF D2='Sunday” 
D2=' DOMINGO" 
ELSEIF D2=' Monday 
D2=' SEGUNDA-FEIRA” 
ELSEIF D2=' Tuesday” 
D2=' TERCA-FEIRA 
ELSEIF D2="Wednesday' 
D2=' QUARTA-FEIRA” 
ELSEIF D2='Thursday 
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ELSE 
DZ= 
ELSEIF 
ENDIF 
ê 15,23 
& ib,25 SAY DIA DA SEMANA: "+02 
DO CENTRO WITH 22, TECLE ALGO PARA CONTINUAR +. 
INFEYÍLOO) 
SET CURSOR OFF 
CASE QFDATA=S 


e Módulo: AGECONF.PRG 


4 AGENDA v2.0 - AGENDA TELEFONICA 
4 BURN BITS INFORMATICA 
t MODULO CONFIGURA AMBIENTE 
1 
DO MHILE .T. 
OPCONF=1 
DO MOLDURA WITH '- MODULO DE CONFIGURACAO DE AMBIENTE - 


8 8,23 PROMPT CAMPAINHA ON/OFF' MESSAGE ATIVA/DESATIV 
A CAMPAINHA DE AVISO 


8 10,73 PROMPT MOSTRA <INSERT)' MESSAGE LIGA/DESLIGA 


MOSTRADOR DE ESTADO DO TECLADO 
& 17,23 PROMPT “NUMERO DE COLUNAS DO EDITOR" MESSAGE “E 
SCOLHE O NUMERO DE COLUNAS POR LINHA QUE O EDITOR UTILIZAR 
é 
8 14,73 PROMPT “ESCOLHE FILTRO DO ARQUIVO MESSAGE * 
SELECIONA FILTRO DE ARQUIVO PARA PESQUISAS 
É 16,23 PREMPT “RETORNA AO MENU PRINCIPAL” 
TORNA AO MENU PRINCIPAL" 
MENU TO CPCONF 
IF OPCONF=1 
CAMPOF="N 
& 8,20 CLEAR TO 16,60 
DO CENTRO WITH 22,/[5) PARA LIGAR CAMPANHA - [NJ PA 
RA DESLIGAR! 
8 9,15 SAY “ESTA CPCAO DEIXA ATIVA, OU NAD, A CAMPAI 
NHA PADRAO" 
8 10,15 SAY 
UM “BEERM' 
6 11,15 SAY 
E ELE PREN-" 
8 12,15 SAY 
SCOLHA. 
8 16,28 TO 18,43 
& 17,36 SAY LIGA(S/N):' BET CAMPOF PICTURE *!! 
SET CURSOR ON 
RESD 
SET CURSOR CFF 
IF CAMPOF="5" 
SET BELL ON 


MESSAGE “RE 


“DO CLIPPER, SE ESTA ESTIVER LIGADA, 


“SERA OUVIDO PELO GPERADOR TODA VEZ GU 


“CHER TOTALMENTE UM CAMPO DE EDICAO OU E 















PORQUE NÃO PROCUREI LOGO A 





REDE DE 









MICROS NÃO TM GRE ee 
É ISSO !!! “ODM O CHE 





À 


dá a 
DA a ; a ESA 
NDA = —— ZA Go 


A TER INFORMATICA TEM UMA - 
GRANDE NOVIDADE PARA VOCÊ! 


Tendo sido desenvolvido de modo a com- 
petir no sofisticado mercado internacio- 
nal de Sistemas Operacionais para micro- 
computadores de 32 bits, o Sistema Vir- 
tuOS 386 foi projetado para o aproveita- 
mento integral da arquitetura interna e do 
poder de processamento dos microproces- 
sadores INTEL 80386 e 80486, trazendo 
ao cenário das aplicações profissionais a 
efetiva utilização dos conceitos “multiu- 
suário”, “multitarefa” e de “máquinas 
virtuais”. 


O Sistema VirtuOS 386 pode ser classificado como sendo total- 
mente compatível com o MS-DOSTM, permitindo uma migração 
livre de traumas a partir de sistemas já instalados, ou uma rápida 
entrada em operação de um sistema absolutamente novo. Ele é, 





na verdade, um sistema operacional com- 
pleto, capaz de gerenciar múltiplos usuá- 
rios e aplicações concorrentes. 

Para começar, o Sistema VirtuOS 386 
permite a formação de “clusters” multiu- 
suários através da conexão de “estações 
de trabalho” não inteligentes a um único 
equipamento PC-AT 386/486. A partir 
daí, de acordo com o crescimento das ne- 
cessidades de cada empresa, novos “clus- 
ters” podem ser formados e interconecta- 
dos através de esquemas tradicionais de 


Rede Local e/ou Remota. Todos os elementos que permitem a 
formação dessa Rede de “clusters”, estão integrados e são facil- 
mente acessíveis no módulo “VirtuOS Network Facility” 


O ENDEREÇO CERTO PARA QUEM PROCURA 
BOM PREÇO E ÓTIMO ATENDIMENTO 


ENTREGAMOS EM QUALQUER 


LUGAR DO BRASIL! 


LEASING DIRETO DA FÁBRICA: 
PCXTe AT em 6/12/15 MESES 


TER INFORMATICA Revenda Autorizada VissoS 


Av. Pasteur, 184 Loja K — CEP 20291 — Rio de Janeiro — RJ — Tels.: (021) 541-2795 e 295-6690 





ELSE 
SET BELL 0rF 
ENDIF 
ENDIF 
IF OFCONF=2 
TIVOF="Nº 
8 9,70 CLEAR TO 14,60 
DO CENTRO RITH 22, (5 
ARA DESATIVAR 


) PARA ATIVAR MOSTRADOR - [NJ F 


& 4,15 SAY "ESTA OPCAO ATIVA, OU NÃO, OS MOSTRADORES 

DE ESTADO” 
8 10,15 SAY DO TECLADO DO CONSOLE, SE ESTIVER LIG 

ADA, AS PA- 


8 11,15 SAY LAVRAS (Caps), [Insi e (Num) APARECERÃO 
NA PRIMEL- 
8 zo SAN RAL 
PELO OPERA-" 
8 1315 SAY DOR. 
8 16,28 TO 18,44 
247,30 SAY CATIVA(S/NI EO 
SET CURSOR ON 
READ 
SET CURSOR OFF 
IF ATIVOF='5' 
SET SCORE ON 
ELSE 
SET SCORE OFF 
ENDIF 
ENDIF 
IF OPCONF=3 
& 8,20 CLEAR TO 16,60 
DO CENTRO WITH 22, DIGITE O NUMERO DE COLUNAS QUE VO 
CE GOSTARIA DE UTILIZAR (40 - 255) 
8 14,30 TO 13,50 
12,34 SAY COLUNAS: 


INHA DA TELA QUANDO FOREM ATIVADAS 


GET ATIVOF PICTURE '! 


GET MCA PICTURE 999” RANGE 4 
0,255 
SET CURSOR ON 
READ 
SET CURSOR OFF 
ENDIF 
IE OPCONF=4 
CHESP=CHESP+SPACE (35-LEN(CHESF)) 
€ 6,20 CLEAR TO 16,60 
DO CENTRO MITH 22, DIGITE O FILTRO DESEJADO PARA O C 
AMPD ESPECIFICACAO' 
é Li,i7 TO 13,62 
8 12,19 SAY CHAVES 
[ER REREREREERR! Mitttado 
SET CURSOR ON 
READ 
SET CURSOR DEF 
CHESP=RTRIMICHESP) 
IF CHESP=SFACE(35) 
SET FILTER TC 
ELSE 
SET FILTER TO CHESPSESPECIF 
Go TOP 
LOCATE FOR CHESP$ESPECIF 
IF EGF(; 





GET CHESP PICTURE UIILUMMCA ta 
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SET COLOR TO d+ 

8 lo,27 TO 19,5 

& 17,29 SAY FILTRO NÃO fi 
SET COLOR TO 

INKENS) 

SET FILTER TO 


CEITO !! 


e Módulo: AGEUTIL.PRG 


t AGENDA vZ,O - AGENDA TELEFONICA 
4 BURN BITS INFORMATICA 
+ MODULO UTILITARIOS 
GPu=1 
DRIVEDA=GETEL O 
DRIN EDA=SUBSTR( 
F DRIVEDA=" As! 
DRIVEDA=1 
ENDIF 
IF DRIVEDA="B;! 
DRIVEDA=2 
ENDIF 
IF DRIVEDA= C:* 
DRIVEDA=3 
ENDIF 
DO WHILE .T. 
DO MOLDURA WITH !- MODULO UTILITARIOS DO SISTEMA =! 
& 7,26 PROMPT EXIBIR DIRETORIOS' MESSAGE EXIBE DIRETO 
RIO DO DRIVE ESCOLHIDO 
& 9,26 FROMPT COMANDO DO DOS 
“o DOS DIRETO DO TECLADO 
é 11.76 PROMPT DELETAR ARQUIVOS MESSAGE “DELETA ARQUI 
OLHIDO PELO USUARIO 
3. F RENOMEAR ARQUIVOS! MESSAGE “RENOMEAR UM 
o, 1 PELO USUARIO” 
55 
7 


OMSPEC') 
DRIVEDA,1,2) 


MESSABE “EXECUTA COMANDO 


vo ESC 
El 
RRQCIV 
5 PROMPT "FORMATAR DISCO! MESSAGE “F 
PARA O SISTEMA 
ROMET "RETORNA AO MENU PRINCIPAL 
NA PAL DO PROGRAMA 


BRMATA DISCO 


MESSAGE RET 


are Tre as 


Y SPACE(OS | 
“ENTRE O Dai 
VALID (EXIBIS ABCDabcd j 
SET CURSOR UN 
READ 


VE PARA EXIBIR : * GET EXIEI 





R oFF 





PC/XT | REDI UNIVERSOFT - FONE (011) 825-5240 


RUA CONSELHEIRO BROTERO 589 CJ 42 - CEP 01154 SAO PAULO - SP 





Eee) | 
QTDE DISCO 





SS 


arate 
hess Naster 2000 
omando 


S: 


282888: 


ion 
Strike Eagle 2 
Simulation 

Simulation 
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CODIGO NOME CODIGO NOME WIDE DISCO CODIGO NOME QTDE DISCO 
ES: 1 A Hora do Pesadelo toz) PCX.101 Gato toL) PCX.201 Battle Hawks 1942 (02) 
e! After Burner (02) 102 Gauntlet toL) PCX.202 Space Rougue (02) 
o! Art of Nar to) PCX.103 Ghostbuster 2 (04) PCX.203 Life and Death (02) 
«004 Robocop 1 E toi) PCX.104 Guerrilha War (02) PCX.204 Echelon (02) 
«005 Off Shore Narriors COL) PCX.105 Hard Ball toi) PCX.205 Star Defenser (UGA) (OL) 
PCX. Battle Chess (02) PCX.106 Heroes Df Lances (03) PCX.206 Missao Imposssivel (03) 
PCX.007 Block Ou (02) PCX.107 Ikari Marriors c01) PCX.207 Super Hang On co1) 
PCX Bad Dudes (02) PCX.108 ilha Disne to1) PÇX.208 Xenon 2 (03) 
PC%.009 The Cucles (02) PCX.109 Football (Salao) toi) PCX.209 Hoyles (03) 
PCX.010 California Games (02) PCX.110 Indianapolis 500 (02) PCX.210 War in Middle Earth (03) 
PCX.011 Carmen Sandiego COL) PCX.111 Jbird tom) PCX.211 Wind Malker (04) 
PCX.012 Death Track (02) PCX.112 Jet Flight Simulat (ol) PCX.212 Whell of Fourtune 401) 
PCX.013 Telas Porno 1 co1) PCX.113 Karateca to) PCX.213 F-16 Pilot (03) 
PCX.014 Telas Porno 2 toi) PCX.114 Karnov (02) PCX.214 688 Attack Submar 2 (02) 
PCX.015 Double Dragon 1 (02) PCX.115 King of Chicago coz) PCX.215 Babk to the Future 2 (02) 
dt] Double Dragon 2 (01) PCX.116 King Quest 1 toi) PCX.216 Rastan Saga (02) 
«01? Duro de Hatar (02) PCX.117 King Quest 3 (03) PCX.217 Tennis Pro Tour (02) 
PCX.018 Earl Meaver Baseball (OL) PCY.118 Las Vegas coL) PCX.218 Chuck Years Aft (01) 
PCX.019 Falcon Simulator toL) PCX.119 Leisure Lair 2 (06) PCX.219 Pharao's Tumb cot) 
PCX.020 Golfe COL) PÇX.120 Leisure Lair 3 (08) PCX.220 California Games 2 (04) 
PCX.021 Grand Prix co1) PCX.121 Lombard Rally (02) PCX.221 Mah Jon: CUGA) (02) 
Poetas Indiana Jones 2 (02) PCX.122 Loom (06) PCX.222 Wings of Fury (82) 
«023 Indiana Jones 3 (06) PCX.123 1 Tank Platoon (03) PCX.223 Alley cai) 
PCX.024 Leisure Lair to2) PCX.124 Mahunt in New York (05) PCX.224 Tonys of Fatman CM) (06) 
PCX.025 Nach 3 co1) PCX.125 Narble Madness (02) PCX.225 Crime Nave CUGA) (08) 
»O26 Nean 18 - Golfe col) PCX.126 Notocross (02) PCX.226 Vette (ot) 
0] Horld Cup 90 (02) PCX.127 Night Mission co) PCX.227 Renegade (02) 
" Faces coL) PCX.128 Decathlon toi) PCX.228 Nickey house (02) 
+029 Operation Molf cm (03) PCX.129 One in One 4 (Bask) (02) PCX.229 Altered Beast, CW) (03) 
*030 Os 3 Patetas t02) PCX.130 One in One 2 (Bask) COL) PCX.230 Battle Chess 2 (03) 
031 Out Run (02) PCX.131 Paper Boy (OL) PCX.231 Low Blow (03) 
Pcx 032 PRERer toL) PCX,132 Piratas CUGA) (02) PCX.232 Secret Agent (05) 
PCX,033 Ninter Games to1) PCX.133 Pit Stop co) PCX.233 Last Ninja 2 (03) 
ár] Bonkey Kong to1) PCX.134 Honopol col) PCX.234 Batman the Novie (03) 
«035 Pinball Wizard co1) PCX.135 Police Quest 2 (06) PCx.233 puper Bike col) 
Persas Platoon toi) ny 36 Prince oi Persia (02) PCX.236 PGA Tour Golf (OL) 
"Sã Rampage (ol) 3? Phohibition COL) PCX.237 Days of Thunder (02) 
PCX.038 Robocop 2 cm) (04) PCX.138 PSY 5 toL) PCX.238 Super Off Road (um) (02) 
039 Rocket Ranger co2) PCX.139 PT 409 cor) PCX.239 Thexder 2 CEGA) CH) (03) 
040 Lode Runner tot) PCX.140 had Hix to1) PCX.240 Wing Comander (VGA) (HM) (12) 
041 Space Racer tor) PCX.141 Bilhar 3D toi) PCX.241 Dino Mars th) (07) 
PCX.042 apra Ball (02) 42 Red Narriors COL) PCX.242 New York Narriors (E-W) (02) 
PCX.043 Star Goose Col) PCX.143 Rambo (02) PÇX.243 Avoid the Noid (OL) 
290] Startrek toL) PCX.144 Roger Rabbit (02) PCX.244 Conflict in Europe (02) 
ps 5 Test Driver 1 es PC%.145 Roleta COL) PCX.245 Stee) Thunder (02) 
«046 pe Driver 2 toa) PCX.146 Rushn'm Attack (02) | PCX.246 PC Pool Challender coL) 
PCX.047 Tetris to1) PCX.147 Saboteur tor) PCX.247 Bandit King (EGA-2D) (03) 
PCX.048 The Last Ninja cm (02) BP) Sail Simulation toi) PCX.248 Titanic 2 (02) 
Esso Auenger (01) PÇX.149 SDI col) PCX.249 Dark Castle (2D) (02) 
050 Pop Corn toL) PCX.150 Service Play Tennis cor PCX.250 Manic Mansion (UG) (02) 
PCX.051 Goody col) PCX.151 Shogun tor) PCX.251 Weird Dreams (02) 
Ea: g Pushido/zexx/DeFand col) PÇX.152 Silpheed cm (04) PCX.252 Red Dragon to1) 
. E io col) PCX.153 Sim Cit: (02) PCX.253 Sea Dragon (01) 
Pex. Tar' prugas Ninjas 1 (04) POX-154 Skate ol Die (02) PCX.254 Nonaco GP (Confirmar) (12) 
Pao 4x4 Road Racing €o1) PCX.155 Sky of Die (02) PCX.255 Exterminador do Futuro (08) 
056 688 Attack Submarino (OL) PCX.156 Snooker cor) PCX.256 preday Hardest (01) 
PCX.05? Tank Killer (04) 97 Soroban toi) PCX.257 Road Runner toL) 
es] Flight Simulation coL) 58 Space Quest 1 (02) PCX.258 Carmen Sandiego 2 (03) 
099 Africar (Bugs) (OL) 99 Space Quest 2 (03) PCX.259 King Quest 5 Cm) (32) 
PCX.060 Air Combat col) PCX.160 Space Quest 3 (06) PCX.260 Zac Ho Cracker (02) 
Posrdé Rirbone Ranger co1) PCX.161 Laker & Celtics (02) PCX.261 Street Road 2 (04) 
a ALF, o Eteimoso tor) PCX.16: apa x Spy col) PCX.262 Baa (UGA) (OL) 
063 Arkanoid 2 col) PCX.163 Street iqar ba) peidos Grave Vardege (03) 
064 Artio Fox co1) PCX.164 Street Roa (03) PCX.264 Sword of samurai (03) 
«065 Barbarian (01) Strike Fleet toi) PCX.265 1f it Moves Shoot (03) 
RE De mto A] | ont RD] | ES to q UR 
. asket (Jonhoson e urmer Games . aptain Comic 
Desde Bitite 9f Britain (04) PCX.168 Summer Games 2 cor) PCX.268 Mario Bross CUGA) (OL) 
069 Battle Tech to2) PCX.169 Test Driver 3 CUGA) (03) PCX.269 The Game of Harmony (OL) 
+070 Black Cauldron (02) PCX.170 Volley Ball (Praia) (02) PCX,270 Packet Rocket to1) 
»091 Budokan (02) PCX.171 Horld Soccer (02) PCX.271 Infiltrator 2 to1) 
o Captain America (02) PCX.172 Power Drift (carro) (04) PCX.272 Operation Clean Street (02) 
«073 Cassino to1) Hostage (02) | PCX.273 Ultima (05) 
+074 Caveman Hugholimpos (04) Viagem Centro Terra co2) PCX.274 The Bock of Mobein (02) 
«075 Boxxing . Police Quest (03) PCX.275 King Quest 4 (05) 
PC, toi) PCX.276 (01) 
PCk. COL) PCX.27? (02) 
PCX (OL) PCX.278 coz) 
PCX, (02) PCX.279 (04) 
co1) PCX.280 (04) 
(04) PCX.281 (02) 
(02) PCX.282 (05) 
(02) PCX.283 €03) 
PCx coL) PCX.284 (18) 
PCx col) PCX.285 (07) 
(04) PCX.286 toL) 
(09) PCx.287 (06) 
(05) PCx.288 co1) 
(01) PCX.289 (ol) 
(02) PCX.290 toL) 
(02) PCX.291 toi) 
(01) PCx.292 (OL) 
(03) PCX.2: (04) 
(02) PCX. (02) 
104) Pk. to1) 
to) PCR, COL) 
(04) 
toi) w 
toi) 
toi) 


Rasa 
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Cine Porno í 
Pipedream 
Macadam Bumper 
Obliterator 
Indiana Jones í 
Stunts Driver 1) 


cm 


Castelvania 
Take Down 
Super Contra 
Shinob) 
Stellar 7? 
Codename : 1 
Star Treck 5 
Jig Saw Puzzle 
Rock Ford 
Robocop 2 
F 16/18 Simulation 
Centurion 

Golden Axe 

Niami Vice 

Hunt Red October 
Sumer Edition 


lceman (M) 
(UGA) CD 


VGA) 


Cine Porno 2 
Cine Porno 3 
Heavy Netal 


e 
E 


Eai 
o: 
rá 


295 
«296 


T.Drive 2 (Muscle Cars) 
Night Magic 
Sentinel Norlds 
Battle Tech 2 
Stunts 
Hanchester Unite 
Michael Andretti 
Lemings 
Space ce CUGA) 
Conan CUGA) CH) 


Capitao Trueno 
ABC Nonday Nig Football 
Sapo Demo 

Battle Zone 

Naster Blaster Pinball 
Skate Rock 

Big Top 

Popolous 

Narco Police 

New GP Notocicle 

Rick Dangerous 


d 
CE-W) 
cm) 











Necessita Ninchester 
(E-M) hinchester e monitor EGA 
(UGA) honitor UGA / 2D 2 drives 











FORMA DE PAGTOS: (1) CHEQUE NOMINAL e CRUZADO (2) REEMBOLSO POSTAL (SEDEX A COBRAR) So paga quando retirar no correio.| 





-Relacione numa folha o Codigo, Nome e Quantidade de Discos fp 
» Wultiplique a quantidade de discos gravados pelo valor 


PAGTO CHEQUE (15 Desc) PAGTO P/REEMBOLSO (Sedex a Cobrar) 


pedi 





TABELA DE PRECOS 


J di 5.1/4 

feria de Jogos en disco 3:17 
pia fplicat. em disco 3.1/4 
Copia fplicat. em disco 3.1/2 





je e usado para cada programa. Para fazer o calculo de seu 
de sua opcao conforme tabela abaixo. Entrega 15 dias. 


Estao inclusos 
tes e das de: 





spesas postais. Para col aci- 
ma de Cr$ 25:800,00 gratis disco 0/46 Senhas 






IMPORTANTE!!! 
nos precos o custo dos diske- 






Relacao de Softuares elaborados em 
nosso CPD. Acompanha instrucoes. 


PCX.9001 - MALA DIRETA 
Emite relatorio e etiquetas deoduas 
carreiras. Cr$ 8.000, 








PCx,9002 - CONTROLE DeNCANIO 
Destinado ao controle de ( mus de 
Enpresas ou ft id jocius ve, de 
cheques pre-datados, emite extrato, 
Ens “16.000,60 


PCX.9003 - ADMINISTRAÇÃO ESCOLA] 
Sistema completo de Administracao 
escolar, acompanhamento de notas 
pistonjoos EH alunos; letins 
istoricos de professores. 

Cr$ 40.000,00] 


PCX.9004 - CONTROLE DE RESTAURANTE 
Emite comanda de fechamento de mesa 
palquia Gonissdo de garcons, onto 
a estoque de bebidas e pesquisa de 
vendas ço 6r8*38.000,00 


PCX,9005 - CONTROLE DE ESTOQUE 
Controla entrada/saida de Produtos, 
emite relatorios dos produtos que 

atingiram a quant, minima/Max,, faz 
pesquisas de vendas e entradas, re- 
marcacao de precos, cadastro de for 
necedores e imprime NF simulada E) 
vendas, Cr$ 35.000, 


PCX.9006 - CONTAS A PAGAR E RECEBER 

Relatorio por numero de duplicatas, 

relatorio por ordem de vencimento, 

relatorio por centro de custo, 

H) demais rotinas pritranto ao con- 

as é pagar e receber da empresa, 
18,000; 








PROGRAMAS APLICATIVOS DE DOMINIO 
PÚBLICO E SHAREMARE. 


CODIGO NOME QTD DSK 


PCX.5001 EQUATOR Ensino de matema- 
tica, ciencias e financas o) 
PCX,5002 COLLAGE Editor de desenhos 
e slides, podendo ser quipados o) 
PCX,5003 abc FUN KEYS Ingles para 
crianças entre 2 e 5 anos ( 
PCX.9004 SPANISH VERB Ensino dos 


s RPA E 
PCX.5005 IN TUTOR Ensino da 
lingua alema, E 
PCX.5006 ITALIAN TUTOR Ensino d: 
anã 


lingua italiana, 

PCX.5007 N Ensino de matema- 

tica para criancas, 1) 
ua MOONBEAM Astronomia (1) 


PCX.5009 CHASM Ensino assembler (2) 
PCX.5010 PC PROFESSOR Ensino da 
linguagem Basic, 

UTOR COM Ensino do “844, 


0 
PRINTER Imprime cabeças 
s 


t A 

“RED Ensino DOS (1) 
CAL, TUTOR Ens, Pascal(ê) 
LÓULUS Ensino da algebra 


nometria, 
Pxc56i6 PC TOUCM Ensino de datir 
lografia o) 
«501? FLASH CARDS Dicionario 
les + de 7000 vocabularios (4) 
+ 9018 TUTOR TURBOC Ens. Turboc(2) 
Turbo( E 2 
PCX.6001 GALAXY Otimo editor do 
po do Norónta (2) 
ITE Facil e Poderoso, 


Imprime car 
Pes naliad 


Is 
PCX.6004 CHINRITER Editor de texto 
e grafico 
6301 PC CALC Poderosa planilha 
com 3) 


rafico 
POX.b300 ASbasys Planilha com capa- 
cidade de 256 x 4 , 
PCX.6303 INSTACALC Esta planilha 

Tmanece residente na memoria 
POMER SHEETS Plan,3D 

PC KEYDRAM besitor 

PCX.6651 CHEQUE IT OUT Controle 
impressao de CA Rd 

«6652 FLONDRAN Otimo programa 
E fazer fluxogramas 

«6693 FORMASTER Gerador de for- 
mularios (60) 
PCX.6654 PC CONT AXS Software de 
contabilidade OD 
PCX.6701 MICRO GENE Conheca sua ar 
vore FAPIIRTA OD 


NH 


in 


q) 
(2) 
«5 
e 


icos 
BIORRITIMO Biorritimo, 

arot e ] ( is : E) 
«6705 PC SORTE Ajuda a fazer pre 
visoes para Loto, Sena e Loteria 
Esportiva (D 














To APERTE LMA TECLA PARA CONTINUAR... 














CURSOR OFF 
F EMPTYIREANT) .OR. LASTKEY(1=27 
FAME SOSEEN TO CDOS LOOP 
EE ENDIF 
PTELLE EXIT PARA RETORNAR AD SISTEMA! IF FILETREANT) 
- SE ESQUECA DE PERMANECER NO SUB-DIRETORI RENO=REANT 
vu & 14,16 SAY “RENOMEAR FARA: * 
2” QUE ERA CORRENTE NA HORA DA SAIDA DO PROGRAM & COL() ROW() GET RENO 
ç SET CURSOR ON 
COLOCAL=GETE(' COMSPEC) READ 
SET CURSOR ON SET CURSOR OFF 
RUN &COLOCAL IF EMPTY(RENO) 
SET CURSOR OFF LOOP 
LOOP ENDIF 
CASE OPU=3 RENAME &REANT TO &RENO 
DO MOLDURA WITH “APAGAR ARQUIVO DO DISCO Loor 
DO CENTRO WITH 22, DIGITE O NOME DO ARQUIVO DESEJADO ELSE 
PARA APAGAR DO NEXISTE 
NARG=SPACE (14) LOOP 
“BSS TO 13,66 ENDIF 
6 12,14 SAY "QUAL O NOME DO ARQUIVO A SER APAGADO: * CASE OPU=5 
GET NARQ DO MOLDURA WITH “FORMATAR DISCO 
3ET CURSOR ON 8 9,15 SAY “Nesta opcao FORMATAR DISCO, voce deve pr 
READ oceder' 
SET CURSOR OFF & 10,15 SAY “da seguinte maneira: 
iF EMPIVINARO) .OR, LASTKEY()=27 & 12,15 SAY “Coloque un disco virgem ou disco antigo 
no drive A: 
EN & 13,15 SAY Certifique-se que nele nao estejas co 
NAS i idos dados' 
IF .NOT.FILE(NARG) 2 14,15 SAY importantes por que este sera totalment 
DO MEXISTE e apagado. 
Loop & 22,18 SAY 'TECLE [13] PARA CONTINUAR, OU ALGO PARA 
ENDIF SAIR" 
CERT="Nº TK=INKEY (O) 
SET COLOR TO W/R IF Tk=- 
& 11,27 TO 13,45 DOUBLE CLEAR 
E 17,28 SAY SPACE(20) SET DEFA TO ADRIVESIS 
8 12,28 SAY * TEM'CERTEZA (9/N):' GET CERT RUN FORMAT Às 
SET COLOR TO IF DOSERROR()<>0 
SET CURSOR ON LEAR 
READ 7? “ERRO NA EXECUCAO DO PROGRAMA. VERIFIQUE ARQ 
SET CURSOR OFF UIVOS DO DISCO SISTEMA. 
IF CERT='S auIT 
DELE FILE &NARG ENDIF 
ELSE HRIT “APERTE UMA TECLA PARA CONTINUAR +. 
LOOP LOOP 
ENDIF ELSE 
CASE OPU=4 Loop 
REANT=SPACE(14) ENDIF 
RENO=SPACE(14) CASE OPU=6 
DO MOLDURA WITH RENOMEAR ARGUIVO DO DISCO” EXIT 
DO CENTRO WITH 22, DIGITE O NOME DO ARQUIVO PARA REN ENDCASE 
OMEAR ENDDO 
ê 12 io TO 15,61 RETURN 


8 13,16 CLEAR TO 14,60 Continua na próxima edição 
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CATALOGO REDUZIDO - SOMENTE OS SOFTS MAIS VENDIDOS NOS ULTINOS 6 MESES | VEJA NOSSA LISTA COMPLETA NA MICRO SISTEMAS No. 106 Paginas 50 e 51 





WSX 1 NORMAL - SUPER JOGO 
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55,00 - 1 por Disco 


0 3 
Games 
Barner 
e Dragon 
au Ninga 


q 

Êf 

q! 

T 

pé eration Nolf 
enegade 3 
à 
x 
O: 
e 
e 


$ 4 
Ram) 

N iá 
After 
Doubl 
2 

5 

R 
Paris Dakar 
4 

bi 

1 
lo 


r 
tu 
ul 
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Sosdssfsdsas 4 


CSONPSNcos aa. 


à 
4 Road ci 


as À 
las Porno 
las domo 
ostbuster $ 
ho Sanches 
atman The hovie 


Lancamentos - Cr$ 800,00 


SUPER MARIO BROS 
EEMTARORS, NINJA 


DRAGON 2 
INDIANA JONES Ê 


LELSCC O ama as 





MSX 1 MEGARAM 256 
Cr$ 455,00 - 1 por Disco 
001 Nemesis 1 


002 Nemesis 2 
Salanander 


esssss 
aê 
3 
E 
és 
és 
: 
= 
sê 
; 
: 
: 


ssssssecees; 
SESSESSESSS 
=52 


land 
Ria ia 


P 

5 

Ê 

an Twin Bee 
8: 

Hyud Lad 


9 
a 
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MSX 1 JOGOS ADAPTADOS 
Pim ed e 
Cr$ 950,00 - 1 por Disco 

Nemesis 1 


00) 

final Zone 
004 
005 


uper Laydock 
axol 
Hirai 


jogos forao adapta- 


Est 
“py ºPodar sem Megaran 


dos p; 
MSX 2 NORMAL - JOGOS 
Cn$ 520,00 - 1 por Disco 

106 Chess 


Hg Clash cora 
ash Gordon 
Hê TNT 
120 Norid Golf 
125 Test Drive 
133 Last Mission 
1% ita He Riad 
a do 
155 Eidelos, 


MSX 2 NORMAL - PORNO 
Cr$ 590,00 - 1 por Disco 


201 Cicciolina 1 
tociolina 2 
03 


layboy $ 
4 Stry “gi er 
05 popno 8 


2 
2 trip 

2 how 

211 Telas Digitalizadas 7 














































Agenda de Compromisso 

Linguagem C (2 Discos) 
x 

Mala Direta 

Controle de Estoque 

Uni-Telas + 39 Telas 

à rd Emil + 56 Musicas 
pad 

vídeo “exto System 


Mega Prin 
Video Nite (2 Discos) 
Turbo Pascal 








PACK 65 


Cavern Death - Galaga 2 
Joquei - Knight Ninga 
Poker II - Scorpeon 
Sherlock Holmes - Ufo Az 
Sprint Games - Wonder Bou 


Os Packs acima sao compos, 


tos de 18 jogos + 1 Cop, | 









































dicando o numero, 
IMENTO: 





MSX 2 NORMAL - APLIC/UTIL PACKS JOGOS - MSX 1 SUPER PACKS - MSX 1 JOGOS NSY 2 728 kb VIDEO 
pre | res ADAPTADOS PARA 368kb 
Cr$ 715,00 - 1 por Disco Cr$ 1.950,00 por Pack Cr$ 1200,00 - 1 por Disco) ———————— GAMES 
+ 1 | Cr$ 508,88 - Cada Disco 
331 Video Graphio PACK 17 SUP PACK 301 
235 P Akanbe Dragon Sao MEGA DRIVE 
239 quper xinter Batman - A ho e fhoros Ace of Ace - Krakout Psycho World ( 
240 Tassword 2 Condor lan - Desolator Capitao Sevilla 1 isc Station ç” tm) 
241 Pixel “Tt pisper Stones - Kinasai Heddox - Don Quixote e Tuinke Star NINTENDO 
esa 11 - Super Cobra Crazy Car gptadest tive ta) 
WSX 2 - MEGARAM 256 A SUP PACK 304| | Ei tur CD) 
- ee ac 
- PACK 20 Firehauk - Thexder 2 (4D)| | MASTER SISTEM 
Cr$ 520,00 - 1 por Disco : dra Rat = Antarojás Sadi seg pena fe Col, 
Uture kn) - Naziac Ark e erzo: 
301 Ikari Warriors biis Neils.- Castle 1 e 2] | Mundo Perdido = Hochey Feumaforin (3D) SUPER PANICON 
302 Out Run Thexder - Trailblazer ET OST) pleste Re] (2D) ——— 
408 Family Boxing Ultra Chess é Zanac 2 SUP PACK J308| | Fânicie aredio 2 (4D) CAME BOY 
12 Rastan Saga Aleste 2 
316 Zanac Excelent PACK 28 fhicago ab - Taipan Brincess CD) e 
320 Super Ram Navy foves 1 - Sol Hesro Tetris (2D) 
321 Castelvania 1 Beach Head - Boom - Clued Aspar fotos. - Rampart Undeadline (2D) CARTUCHOS 
322 Hinotori Fred and Bub - Jump Land | >>>" | YS 3 (10D) 
327 Aleste Nidniaht Bret = Monopólio SUP PACK 310] [-———————— 
331 Contra Honsters - Super Nin NOVIDADES NSX 2 MEGARAM 
ja Racing bars Vicius Viper Numprey = pus putari ER 300,00 MEGADRIVE 
pace Nambow as 1x - Navy Hoves ada 
E fetal Gear PACK 32 Sol Negro 2 - Titanic 2 7 RS] - — 
uper Runner injã Kun 
53 Punks 2 Aguia de Fogo - Alphagoid] | SUP PACK 315] | halása UD) SONIC 
95 American Soccer Astro Plumer - Atack Toma FINAL BLOW 
356 Animal Mars 2 Bmx Simulator - Break in Bounce - Strange NOVIDADES MSX 1 MEGARAM 
Captain Chef - Car Race Final Countdom - Bouken cada CRE SO0 00] | GAVARES (BM) 
Scentipede e Chuck Egg 4Is Strip Play - Vortex Cada CR$ 508,06 
prio irao, RESISTENCE 
TETO) T PACK 34 [SUP PACK 319 Dragon Slayer (AD) 
” r Disco 
pen 5 Camelot Mie ue piter Mar 4 = After Mar 2 NONE FANTASIA 
iscos. etion - Enduro - Frui enon - Syndrome Jogos e 
Pe, (á Discos) penta raise” ty8,8,2,| | Obliterator * Siate Drag | Iuo EEE MICKEY MOUSE 
iscos) rara pursas hd | TETE == IS - Por Disco THAN 
DRAGON SLAYER (4 Discos) | Ninter Games 1 SUP PACK 324 E ig E 50) BA 
ra ragon « 
PACK 4? Chase H.0. = Corsarios 2 | | Pesch UPAR MONACO GP 
COLECOES MSX 1 jnvaders - Mesanova Clos (45) SHADOW DANCER 
COLECAO 1 = Cr$ 2.300,00 | | UEEL = futbol of the geal | Play Ball 4 - hotor Bytes DADE MATE 
= ubus - Super Bowl " 
Soccer - Taction - Uboo SUP PACK 325 STRIDER 
4001 Agenda Domestica 1 Catabalao - Yiear Kung fu 700 BIN 
4888 Banco de Dados 1 e Zexas 1 Jungle Marriors - ach 3 | | SAINT DRAGON NINTENDO 
Nala Direta 1 Necon - Power and hagic SITOPONS RACE 
4004 Contr de pleoe 1 PACK 54 hortadelo 1 e 2 INDIANA JONES 2 
4005 Editor de pa en | PUTEBOL NANEGER, TARTARUGA 2 
4006 Contas a Pag/R He lan - Alien q Resgate SUP PACK 326 AFRICAN RALLY 
4007 Contabilidade Domest| | Nov Pacman - Police head CONTINENTAL CIRCUS N.GAIDEN 3 
4068 Cêntraio Bam enter - arianaia ie” | | Bunpy” -"Binencão Qoegar? | | EARENSSLA ND TONA h 
ontrole Bancario omber - Arkanoi a UM] - Dimensão Ume: LOS 
ÁOIO Planilha NOX Snabey é Cetu Dictá Corumel = Smurfs CHESS MASTER BATTLE TOADS 
—— FINAL UAR SIMPSONS 
PACK 62 SUP PACK 327| | hDUNTAINBIXE RACER 
COLECOES MSY 1 SER Vo NoID 
Konami Soccer - Ping Pong Ano de) Mundo - gSomando 4 SIR NOOD 
COLECAO 7 - Cr$ 2.300,00 Tennis - Baseball - Bilha] | Dimensao Úmega 2 - Rambo THE LIGHT CORRIDOR ROBOCOP 2 
Basket - Volley Ball Ratirha - 3H 63 Patrol WINTER HAUX 
4061 Abelha Sabia 2 Gran Prix Norid = Hyper | mo CO Tatro! | | ELES (am) S.MARIO 3 
4062 Abelha Sabia 3 Olinp é hypér Sporte, SUP PACK 328] | GHISTBISTER 2 (1D) a 
E fissão Resgate”. ? PACK 63 avent Driginal E INPocavéis Ca) EE] 
issao Resgate ven riginal - Crisis Q 
5 Mago Usador Dioza Cozúnel 2 - 6 Ball | | LORNA CD) MASTER SYSTEM 
486 Balhaco Ee tucmi: Star Satdier Mecário Dacis - Rangak Fe Mime 
alhaco Ex anac +] ar Force " 
4068 Pescador Espacial 4 fuper - Zenge 2 - Gulkavel | SUP PACK 329] een | MONNOO GP 
4069 Anagrama 1 Columbia - Bosconian e ADAPTADOS MSX 1 S/ MEGA ESMAT 
4070 Anagrama 2 Phants À furar Ninsnea =evision ES 
ES eo-z — Grtic Fox 
[oem amor emas || PACK 64 | | dfioi- forios negao cm noso 
* Eid ga 
ELSE o À a (pp edi o 
o " " cá r iq - Reinado - 1º) Jogos. 4! 
Ro iógo - flagica) Pinball NOONVALKER 
Contabilidade Post Mortem - Roma e 
Folha de Pagto à fatdicao 


COMO ADQUIRIR NOSSOS PRODUTOS 


| 1) Relacione em uma Foha de papel os produtos e juca aquirir, in- 

nome e para qual 0 com) 

e endereco completo de 

RMA A) Reembolso Postal 

[o | Modalidade voce so pagara seu pedido ao Petirar 3) Correio 
Sendo que sofrera um acrescimo de 107. 

B) Para Pagamento com Cheques os Precos nao sofrerao acrescimo e as 
despesas de Correio sao por nossa WUitas 


OBS: OS PROGRAMAS ACIMA NAO INCLUEM DISCO. 


Pora To legível, 
B) Cheque Noni 


0 de 
3,1/2 Cr PEA 8 


1/4 Cr$ 








UTILITÁRIO 


Aprenda a “ver” arquivos com atributos invisíveis 





Um DIR muito especial 











Marcelo Flores Vieira 





Este utilitário tem como objetivo incrementar o comando 
[DIR] do sistema operacional, possibilitando ao usuário 
“ver” arquivos que tenham atributos como READ-ONLY, 
SYSTEM e HIDDEN. A sintaxe a ser utilizada é a seguinte: 


DIRF [DRIVE] [DIRETÓRIO] [NOME e EXTENSÃO] 


Caso “drive, diretório, nome e extensão” não sejam for- 
necidos, será mostrado, ao usuário, um texto de ajuda. 


Prograsa: DIRF.L 
“Funcao : Exibir arquivos de determinado drive/direto 
rio 
nostrando tambea seus atributos. 
: Marcelo Flores Vieira - MP&M Consultores S/C 


Rua Frei Henrique, 225 - CEP: 20751 


Hinclude <stdio,h) 

| Hinclude (dos.h) 
Hinclude <fentT.h) 
Hinclude <io.h) 
Hinclude <dir.h) 
void cabecalho(void); 
void helpívoid); 
void mostra.arg(void); 
struct ftime ftines 
struct ffblk ffblk; 
RARE argc, char *argvl]) 


int písachei, status, conf; 
E dr iveLMAXDRIVEI, dir CMAXDIRI, noneCMAXFILE], extCM 


pathCMAXPATHI, pauxCMAXPATHI; 
if large (2) € help()sexit(0);) 
cabecalho(); 
fnsplit(argvl4],dr ive,dir,nome ext); 
strcpy(path,drive); 
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Micro: IBM PC/XT 
Memória: 512 Kbytes 
Vídeo: CGA 


Linguagem: Turbo C 





Requisitos: Nenhum 


As informações fornecidas pelo programa são as mes- 
mas mostradas pelo comando [DIR], acrescentando-se o 
atributo de cada arquivo designado por “nome e extensão”. 

“Nome e extensão” podem ser designados utilizando- 
-se “*“ e “7” de acordo com as necessidades do usuário. 
O programa pode ser interrompido teclando-se "CTRL" + 
“C” simultaneamente. 


O a a 
MARCELO FLORES VIEIRA é formado em Engenharia 
Mecânica pela Universidade Federal Fluminense e possui ou- 
tros cursos de extensão em Análise de Sistemas pela PUC. Pro- 
grama em C, Cobol, Clipper, Pascal, etc 


strcat(path,dir); 

strcpy(paux,path); 

achei = findfirst (argvr4], &FFbIk,0x07); 

if (achei==-1) printf( “Nenhum arquivo com especificar 
ao Xsin”,argvl1]); 


uia (achei) 


strcat(paux, ffblk.ff name); 
pe (pizopen (paux,0-BINARY)) !=-1) 


getftime(pí,&ftine); 
mostra.arq(); 
“e 
else printf(“Mn Erro na leitura do arquivo X425”,pa 


achei=findnext (&ffblk)s 
strepy(paux,path); 


ux); 


printf Cn"); 

void cabecalhotvoid) 
printf(“Nndn  DIRF - MP&M Consultores S/C” ): 
printfC “NnQUT/90 - ALI Aria NOT reserved”); 


printf (” Au verso 
printf(ninTel.: SLi om - PROVISÁRIOA”) ; 


) 
a help(void) 


cabecalho(): 


printf(“AnEste utilitario tem como finalidade, increnen 





tar 0“); É 
printf(“comando “DIR "“); case (0x20): printf(“Arg.");break; 
printf(“Qndo Sistema Operacional, possibilitando a leit case (0x01): printf(” Leitura”) ;break; 
ura de “); case (0x02): printf(” Escondido”) ;break 
printfCCarquivos con”): 
printf(CAnatributos como 'HIDDEN”, "SYSTEM" e etc"); case (0493): printf(” Leitura Escondido”);break 
printf(ninin Sintaxe correta: “); 
printf” "nin DIRF [dr ive) IL (diretor io) IXnone- -arquiv case (0x04): printf("Arg. Leitura Escondido Sistem 
o.ext)”); a“)sbreak; 
printê(' ANUAL Caso (drive) e/ou tdiretorio) sejam omit case (0x05): printf(” Leitura Sistem 
idos, este “); 
printfCutilitar io”); x06): printf(“Arg. Leitura Escondido Sistem 
printf(“Nn assumira o drive e diretorio corrente para ; ; 
exibir os “); case (0x07): printf(“Ara. Leitura Escondido Sisten 
printf(Carqui-"); a") ;break; 
printf(An vos especificados.” 3 case (0408): printf(“Rotulo”);break; 
printf(/Nnin Os caracteres "2" e 'x" podem ser utiliza case (0x10): printf(“4DIR)”);break; 
dos para “); case (0u21): printf(“Arq. Leitural)sbreak; 
printf (“especificar”); case (0x22): printf(“Arg. Escondido”) ;break 
printf(“Nn os nomes e extensoes dos arquivos. An”): ; 
J case (0x23): printf(“Arg. Leitura Escondido”);break 
void mostra.arq(void) E) 
( case (0x04): printf(“Ara. Sistem 
printf (Cnxias”, FAbIk.ff name); a“) ;break; 
if((ftime. ft ucar+80)(100) case (0425): printf(“Arg. Leitura Sistem 
printf(” Z02u/%02u/%u”,ftime.ft day, ftime.ft month,f a”)sbreak; . 
time, ft year+80); case (0x26): printf(“Ara. Escondido Sistem 
else a”")break; : 
printf(” Z02u/%02u/%u” ft ime. ft day, ftine.ft month, £ case (0427): printf(“Ara, Leitura Escondido Sistem 
time, ft year); a")sbreak; 
printf(” 2Z00u:702u:X02u”, ft ime.ft hour ,ftime.ft.min,fti default: printf (Cux”, FFbIk. ff cattrib)s;break; 
mesft.tsec); ) 
printf(” ZAQUd PC FFbIK.EE fsize)s 
switch (ffblk.ff-attrib) 








CURSOS TECNICOS! 


APRENDA TODOS “CURSOS POR CORRESPONDEÊNCIA | 
CURSOS POR CORRESPONDENCIA 
OS SEGREDOS INTENSIVOS! DINÂMICOS! 


DA ELETRÔNICA 
E DA INFORMATICA KITS EXCLUSIVOS! 
h. KIT DE MICROCOMPUTADOR 

























































* ELETRÓNICA BÁSICA 
e ELETRÔNICA DIGITAL 
e ÁUDIO E RÁDIO A 
* TELEVISÃO PB/CORES 2-80 — EMAIS: 
* PROGRAMAÇÃO BASIC KIT DE TELEVISAO e KIT DIGITAL 
* PROGRAMAÇÃO COBOL ANALÓGICO e KIT DE RÁDIO AM-FM e 
* ANÁLISE DE SISTEMAS KIT BÁSICO DE EXPERIÊNCIAS º KIT 
* MICROPROCESSADORES DIGITAL AVANÇADO e INJETOR DE SINAIS... 
e REFRIGERAÇÃO E AR MSHO 
OCCID 
CONDICIONADO SOLICITE MAIORES CAIXA POSTAL So ge 
* ELETROTECNICA [NRO o [RSA BD | 01051 — SÃO PAULO — SP 
* INSTALAÇÕES ELÉTRICAS Molo)NU Ito NETTO] Desejo receber Gratuitamente, o catálogo ilustrado do 
* SOFTWARE DE BASE 
OCCIDENTAL SCHOOLS CON Gás PR OP MEDA DO DINDA A DAS GO UIT TO RÃ SS 
CURSOS TÉCNICOS ESPECIALIZADOS 
Av. São João, 1588 — 2º Sobreloja 
01260 — São Paulo — SP 
FONE:(OTIL222006] MESA DO sua quais sanar sesuais SEP sas cases vs ams 






Aprenda como acessar arquivos em “C' 





Arquivos ASCII: 


é fácil lidar com eles 


[ Márcia Marini e Cláudio Oliveira 


Este utilitário pode ser usado para realizar cópia de arquivos ASCII 
ou listá-los no monitor de vídeo. Seu valor é principalmente didático, 
pois ilustra a utilização dos comandos para manuseio de arquivos atra- 
vés da linguagem “C”. 

Seu uso é simples. Para realizar uma cópia deve-se digitar: 


- CÓPIA ARQ.ORI ARQ.DES 


ONDE: arg.ori é a denominação do arquivo-origem; 
arq.des é a denominação do arquivo-destino. 


Para listar na tela: 
- CÓPIA ARQ.ORI 
ONDE: arq.ori é a denominação do arquivo a ser listado. 


Os nomes dos arquivos devem ser passados na linha de comando; 
caso contrário, o programa indicará a maneira correta de ser executado. 
Em seguida, os arquivos são abertos. Caso a abertura dos arquivos não 
seja possível, o programa emitirá uma mensagem de erro. 

O programa realiza a leitura dos caracteres de um arquivo e a trans- 
ferência do mesmo para outro arquivo ou para a própria tela, depen- 
dendo dos argumentos passados na linha de comando. 


MARCIA M. MARINI é técnica em Processamento de Dados 
e cursa o último semestre de Análise de Sistemas. Presta con- 
sultoria à Organização Mundial de Saúde e ao Escritório Re- 
gional do Population Council. 

CLÁUDIO L. V. OLIVEIRA é técnico em Eletrônica e possui grau 
superior em Análise de Sistemas. Programa em Clipper, C, Co- 
bol, Pascal e Basic. 


e Listagem 1 


4 Utilitario para Copia e Listagem de Arquivo ASCII 
** Escrito por : Claudio L. V. Oliveira e Marcia M. Mar 
int 
** Marco, 1991 
*/ 
tinclude <stdio.h) 
main(argc, argv) 
int argc; 
char xargvl]; 


printf (“NnCopiador de Arquivos ASCITANO); 
a Print? (“Claudio L, V. Oliveira e Marcia M. Mariniin 
ns 
if large == 1) 
f 


£ 
printf (“Sintaxe sNntn“)s 
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Micro: IBM PC/XT 
Memória: 512 Kbytes 
Vídeo: CGA 

Linguagem: Turbo C 


Requisitos: Nenhum 


printf (“Para coptar um arquivo * copia arg.ori ar 


adesn) o, 

printf (“Para listar o arquivo na tela * copia ara 
«oriAno); 

) 


else 
if (argc == 2 
Vistar(argvlil); 
else 


copiar (arguLíl, argui2l)s 


coptartor ig;dest) 
char *orig; 
char adest; 

í 


int car; 

FILE xargo; 

FILE xarad; 

argo = fopen (orig, “r")s 


if (largo) 
printf (“Nao posso abrir arquivo origentn"): 
else 
( 
arad = fopen (dest, “W'); 
if (largd) 
printf (“Nao posso abrir arquivo destinoin"); 
else 
do 


car = fgetc(argo); 
if (car != EOF) 
fputc(car, arad); 


) 
while (car t= EOF); 
fcloselargo); 
fcloselarad); 
) 
) 
Vistar(or ig) 
char torig; 


1 
FILE xargo; 
int car; 
argo = fopen torig, 
if (Cargo) 
printf (“Nao posso abrir arsuivo origenn"O: 
else 
í 
do 
[ 
tar = fgetc (argo); 
printf (“xc”, car); 





u 


cn 


mile trar i= COF); 


] 
fcloselargo:: 











MS servicos 

















PADRÃO 
CGA 


LIGADO 
DIRETO 
NA ANTENA 
DA TV 





CURSO DE MONTAGEM DE PC. SISTEMA 


Chegou a sua vez de ganhar dinheiro montando PC. 
O metodo é simples e rápido. São 200 páginas com 
dicas, técnicas e ilustrações e você não precisa saber 
eletrônica, basta saber escolher corretamente os 
componentes: placas, drives, discos rígidos, moni- 
tor... Dicas e técnicas de montagem e software. 
Conheça o hardware do PC. Como converter seu PC 
em AT. Faça você mesmo! Este manual ensina como! 


thesk Tecnologia Eletrônica 









TRANSFORME SUA TV 
EM MONITOR COLORIDO 


s Sem modificações na TV 

e Sem modificações no micro 

e Fácil instalação 

e excelente desempenho 

e Custo 10 vezes menor ao de um 
monitor colorido 












Fhesk Tecnologia Eletrônica Ltda. 
Av. Presidente Kennedy 213, Centro 
São Gonçalo - RJ - CEP 24610 
Tels.: (021) 712-8034 e 712-4312 










MONTE UM PC IMPORTADO 
SEM ESTAR MONTADO NA GRANA 


DE APOSTILAS, RÁPIDO E ECONÔMICO. 


Sm a ta e O O O O 
| | CAIXA POSTAL 11609 - CEP 22022 - RIO DE JANEIRO - Rj E 


E Pagarei apenas Cr $ 13.800,00 mais despesas postais, e sei que 

vou receber um manual do curso de montagem de PC. 

E Nome: 
Endereço: 
Bairro: 

E Cidade: Estado: Cep: 


E Envia o cupom agora, sem precisar mandar dinheiro. Você só paga quando recabor o 
seu manual na agência dos correios da sua cidade. Validade do preço atá 31/12/91, 














postados lata sorão atendidos pelo valor do ms da postagem 





a | O Jogos 
(MSX1, MSX2 e 
disquetes 5 1/4 e 
* Mais de 700 títulos disponíveis de software 31/2) 
« Últimos lançamentos 
+ Os melhores games APLICATIVOS PROFISSIONAIS: 
* Utilitários para todas as áreas: Gráfica, Texto, Desktop, Vi ess dio DadUE Plinio de Ciclos; Mila Diróio iza 
; , Mala Direta, Agenda, 
o RR ARCA, CA, Contabilidade, Fichários, Controle de Estoque, Editores de 
« ravdoões Gicantdas, em514e312 Texto, Cálculos Estruturais. 
HARDWARE E SERVICOS * Remetemos para todo o Brasil 





PRONTA ENTREGA: Computador AMIGA 500-P (c/ 1 Mb inter- 






LINGUAGENS 


€ (ASCII/Z80), C (Library), C (AZTEC)*, Turbo Pascal”, Cobol 





no), Expansão A-501 512 Kb original com Clock, A-520 TV- 
MODULATOR (NTSC ou PAL-M), Interface MIDI, Sampler, Drive 
5 1/4 externo, Drive 3 1/2 externo, Modem 1200 RS, DIGIVIEW 






80*, DEVPAC 80”, Forthran, Mega-Assembler*, Mumps*. * 
Acompanham manual 


40 GOLD, Chip SUPER AGNUS. 

SOB ENCOMENDA: Impressora CITIZEN 200-GX com Kit Co- 
lor, AMIGEN, Monitor 1084-S. 

SERVIÇOS: Transcodificação de TV p/ RGB, Instalação de chip 
SUPER-AGNUS, Instalação de 1 Mb interno, Transcodificação 
de A-520 NTSC para PAL-M, Manutenção para toda a linha e 


Assistência Técnica especializada. 


AMIGA CHEAT 
GRÁTIS EM SUAS COMPRAS 


by AVALLON (do nº 1 ao 25): relação com dicas, passwords, 
fases secretas, imunidade total, vida infinita, tempo infinito, etc. 
Muitas inéditas! Agora voce já pode chegar ao final de mais 
de 190 jogos de Amiga. Peça grátis o número do seu AMIGA 


CHEAT ao comprar softs de Amiga na AVALLON. 




















DIVERSOS 


Sistema Gráfico para Desenho*, Sistema Desktop 
Publishing”, DOS*, Copiadores Diversos*, Editor de Vídeo”, 
Editor Musical”, Gráficos Estatísticos, SENA-Soft, LOTO-Soft, 
Sistema CAD* e muito mais! (* Acompanha manual) 


PERIFÉRICOS (Consulte-nos) 








CATÁLOGO MSX E AMIGA 





e telefone (se tiver) solicitando o seu. É grátis! 


Se voce ainda não tem o nosso catálogo completo não perca tempo. Envie-nos uma carta com letra legível, endereço completo 








AVALLON INFORMÁTICA LTDA. 





AV. ALMIRANTE BARROSO, 22 SALA 602 - CENTRO - RIO DE JANEIRO - RJ 
- CEP 20031- AO LADO DO METRÔ CARIOCA - DAS 9:30 ÀS 18:30 HS. 


re: (021)262-1636 








Transforme seu micro num instrumento musical DOGS 





Micro: IBM PC/XT 
Memória: 512 Kbytes 
Vídeo: CGA 
Linguagem: GwBasic 


Requisitos: Nenhum 


Orgão no micro 














[ Emerson Tedesco Faria de Morais 


Este programa tem como finalidade produzir sons à medida 
em que você vai digitando uma letra. A cada letra o som é di- 20' TRANSFORME SEU COMPUTADOR EM UM ORGAO 
ferente, como se fosse um órgão; a interrupção desse pequeno an" cny T E 4 
órgão é no CONTROL + BREAK. Você pode trocar o som, tro- 30"EMERSON 7. É. DE MORAIS JULHO/1991 


cando os valores do SOUND. Construa o seu próprio órgão. 
50 A$ = INKEYS 


66 IF AS = "0º THEN SOUND 300,5 

70 IF AS = "Wº THEN SOUND 600,5 

80 IF AS = "E" THEN SOUND 900,5 

90 IF A$ = "Rº THEN SOUND 1200,5 
100 IF AS = "7" THEN SOUND 1500,5 
110 IF AS = "Yº THEN SOUND 1800,5 
120 IF à$ = "U" THEN SOUND 2100,5 
130 IF A$ = "1" THEN SOUND 2400,5 
140 IF A$ = "0" THEN SOUND 2700,5 
150 IF A$ = "P" THEN SOUND 3000,5 
160 IF AS = "A" THEN SOUND 3300,5 
170 IF AS = "5" THEN SOUND 3600,5 
180 IF AS = "D" THEN SOUND 3900,5 
190 IF AS = "F" THEN SOUND 4200,5 
200 IF AS = "6" THEN SOUND 4500,5 
210 IF ÀS = "Hº THEN SOUND 4800,5 
220 IF Ag = *J" THEN SOUND 5100,5 
230 IF A$ = "K” THEN SOUND 5400,5 
240 IF AS = "L” THEN SOUND 5700,5 
250 IF ÀS = "1" THEN SOUND 6000,5 
266 IF AS = “7” THEN SOUND 6300,5 








EMERSON TEDESCO FARIA DE MORAIS cursa a sétima sé- 
rie, e é professor de Basic. Programa em Basic, dBase Ill Plus, 
Clipper, Lotus e Wordstar. Utiliza um SID - 501. 






BIBLIOTECA DE FUNÇÕES PARA O 





ACENTUADOR 276 IF AS = "Xº THEN SOUND 600,5 
TELA GRÁFICA 286 1F AS = “0” THEN SOUND 6900,5 
TECLADO 290 IF AS = "VU" THEN SOUND 7200,5 


COMUNICAÇÃO VIA RS-232 
CALCULADORA ON-LINE 
CALENDÁRIO ON-LINE 

E MUITAS OUTRAS 


SOLICITE DISCO DE DEMONSTRAÇÃO 
Ligue fone (0499)44-0144 


DIGITEC INFORMÁTICA LTDA 
Cx. Postal 104-89700 - Concórdia - SC 


300 IF A$ = "B” THEN SOUND 7500,5 
310 IF AS = “Nº THEN SOUND 7800,5 
320 IF ÀS = "Nº THEN SOUND B100,5 
330 IF AS =," THEN SOUND 8409,5 
340 IF A$ THEN SOUND 8700,5 
350 IF à$ THEN SOUND 9000,5 
340 IF AS THEN SOUND 9300,5 
370 GOTO 50 
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APRENDA INFORMÁTICA 


SEM SAIR DE CASA 


tamente em seu PC. 
COMANDOS TRADUZIDOS PARA NOSSO IDIOMA 
Opcional: Disquete 5 1/4” com Exercícios 


Mande seu pedido para: R. Conde de Bomfim, nº 422/418 - Tijuca - Rio 
- CEP 20.520 Asc Ricardo Flores 


PROGRAMAS PROFISSIONAIS 
PARA MSX E PC 


LINHA MSX 

“Contabilidade Profissional Completa em Dbase Il Plus: Cr$ 18.000,00 
Controle de Estoque Profissional em Dbase Il Plus: Cr$ 5.400,00 
Super Conversor de Arquivos — Basic — Dbase: Cr$ 3.600,00 
Supershapes 1,2€ 3, para Graphos Ill e Page Maker: Cr$ 2.700,00 
E.V.A. Editor de Vinhetas Animados: Cr$ 5.400,00 

L.S.D, Letters Special Designer: Cr$ 3.600,00 

Mala Direta Plus: Cr$ 5.400,00 

Agenda: c/ Relatórios e Consultas: Cr$ 3.600,00 

MSX CHART: Gráficos Comerciais e Estatísticos; Cr$ 3.780,00 
MSX Top-Cad' Editor de projetos Profissionais: Cr$ 6.800,00 














EMENDA : FonmuLARIOS 
é PORTA DISQUETES 
SENTA sro 


SOFTWARE & HARDWARE 


* JOGOS 

+ APLICATIVOS E UTILITÁRIOS 

* MANUAIS 

* MICROS E PERIFÉRICOS EM GERAL 
(Temos 9 menor preço, consulte-nos!) 

* ADAPTAÇÕES E TRANSCODIFICAÇÕES 

* GARANTIA TOTAL 

* MANUTENÇÃO E ASSISTÊNCIA TÉCNICA. 


PROMO! DO MÊS (À vista ou em 2 vezes) 
* EXPANSÃO DE MEMÓRIA PARA 1Mb COM CLOCK (Original) 
. ALA Ra certeza o menor preço!) e NEO GEO 


SIST. INTEGRADOS “ DESENVOLVIMENTO ESPECÍFICO 


o 


COOPERDATA 
Informática 


(021)722-8737 
7174091 


o 


DESPACHAMOS PARA TODO BRASIL 


permanente 








EXCLUSIVAMENTE LIVROS DE INFORMÁTICA 
LIVROS E REVISTAS IMPORTADAS 


COMPLETA LINHA DE SUPRIMENTOS: 


Rua São Francisco Xavier, 46 — Loja 
Largo da 2º Feira — Rio de Janeiro — RJ 
CEP 20550 — Em frente ao Metrô 


VIDEO-GAMES E CARTUCHOS 
NACIONAIS E IMPORTADOS 
(À vista ou em 2 vezes, o menor preço) 


* GAME GEAR * MEGADRIVE/GENESIS 
e NINTENDO/PHANTOM * SUPER FAMICON 


* Integração total entre sistemas 
* Fácil Manuseio (manual On Line) 
* Treinamento e acompanhamento 


Desejo receber os ítens assinalados abaixo. Só pagarei o valor correspondente 
ao total do pedido, incluido as despases de remessa, na agência do 
correio da minha cidade. 






Preços: 
Lotus 123 


dBase Ill Plus 
WordStar 5.0 









O 15.800,00 


Total do Pedido: 


NOME: . 
ENDEREÇO: 
BAIRRO: 
CIDADE: 
TEL 


| ASSINATURA 


EST: CEP: 


SOLICITE CATÁLOGO 


LINHA PC 
Agenda Profissional c/Mala Direta e Editor de Textos: Cr$ 60.000,00 
Contabilidade Profissional Completa: Cr$ 60.000,00 
Agenda Politica c/Mala Direta e Editor de Textos: Cr$ 60.000,00 
Agenda Jurídica c/Mala Direta e Editor de Textos: Cr$ 60.000,00 
Programas de Dominio Público e Shareware: Solicite Catálogo 


Pedidos através de Cheque Nominal ou Vale Postal à: 

NEWDATA INFORMÁTICA E SISTEMAS LTDA. 

Rua General Osório, 264 - Centro:- CEP 79.025 - Campo Grande - MS 
Caixa Postal 1.049 — Telefone: (067) 383-1604 








* ESTABILIZADOR 
* FILTRO DE LINHA 
* CAIXA COMUTADORA ETC... 


* Despachamos p/todo o Brasil 
* Remessas feitas por reembolso Postal 






Av. Presidente Vargas, 542/301 — Tel.: (021) 233-4045 


* JOGOS (MSX1, MSX2, MEGARAM) 
TILITÁRIOS 
INGUAGENS DE PROGRAMAÇÃO 
RAVAÇÕES EM DISQUETES (5 1/4 e 3 1/2) 
« PERIFÉRICOS EM GERAL 
(A vista ou em 2 vezes, consulte-nos! 
* GARANTIA TOTAL 
& MANUTEN 
* ASSISTÊNCIA TÉCNICA 


Para maiores informa: olicite nosso 
ços e Produtos por carta ou 
SHOW-ROOM 


nos em 


FORM. 80 COL. 1 VIA LISO 
FORM. BO COL. 1 VIA 
MICROSERRILHADO 

FORM. 80 COL. 2 VIAS LISO 
FORM. 132 COL. 1 VIA LISO 
FORM. 132 COL. 2 VIAS LISO 
FITAS EXTRALIFE 
DISQUETES 


FORMULÁRIOS 
PERSONALIZADOS 


CONDIÇÕES ESPECIAIS 
PARA REVENDAS 


* Manutenção atualizada 


* Dinamismo na atualização de 
versões 


* Compatível com outros Softwares 


APLICATIVO 


Mantenha sua locadora sob controle 





Micro: IBM PC/XT 


Memória: 512 Kbytes 


Vídeo: CGA 
Linguagem: Clipper 


Requisitos: Winchester 


Controle de locadora 














Ricardo Borges Gomide 





Nesta edição publicamos a terceira e última parte do programa Controle de Locadora. 


+ FROGRAMA CONTROLE DE LOCADORA TIME=1 
+ PROGRAMADOR ARDO BORGES GOMIDE DO WHILE TIME(1200 
4 MODULO: CONSULTA POR NOME tlocanos.prá) TIME=TIME+I 
+ ENDRO 
SET INTENSITY QN As, SAT” 
USE LOCA RETURN 
IMP="NAO" PROCEDURE NCME 
SET COLOR TO W++ 
DO WHILE IMP="NAQ" 8 15,2 SAT “NOME NÃO ENCON 
a 4,2 CLEAR TO 18,77 SET COLOR TO W 
SET COLOR TO W+ TIME=1 
8 4,2 SAY "CONSULTA POR NOME" DO WHILE TIME<l1Z08 
SET COLOR TO W TIME=TIME+1 
TNOME=SPACE (48) ENTDO 
é 6,2 SAT “Entre NOME -" GET TNOME PICT “are 


READ 

IF TNOME=SPACE (401 
USE 
RETURN 

ENDIF 


“SN” 


"Quira consulta 


ENIRO 

IF QIMP="5 
DO LOCANOS 
ELSE 
RETURN 
ENDIF 


4 PROGRAMA 
+ PROGRAMA 
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eis sar” 
JEN 


[e] 
SET COLOR TO W++ 
i “ESTE FILME 


TIME=1 

DO WHILE TIME(iZ00 
TIME=TIME+! 

ENDDO 


LUGADOM 1" 











PERIFERICOS 


* NO BREAK 
º ESTABILIZADORES 


LIGUE E CONFIRA! 


e DRIVES 
e PC's 
x e IMPRESSORAS 


sms MONITOR coLoR 
* Transforme seu televisor 
em monitor colorido. 
Aire La 
* Venha conhecer! 


CADASTRAMOS 
REVENDEDORES 
AUTORIZADOS 


* IMPRESSORAS 

e PCXT 

* CONTRATOS 
AVULSOS 


qotin EGAL 


HARD/SOFT 





— — 
Ceeiaaço = EEE açN 


Rua Major Ávila, 260 — Sobreloja — Tijuc. 


UM PRODUTO COM A QUALIDADE FHESK 


* Para você que deseja se distrair 
com seu PC-XT-AT compatível, nos 
temos a solução: 


* Os mais sensacionais jogos do mercado 
* Mais o e títulos em jogos para 


PC-XT-ATAS Pci 
E pie por 30 dias a gravação dos 
ULTIMAS 


Jogos 
NOVIDADES 


QUEM DISSE QUE 
VOCE NA O PODE Aproveite esta 
COMPLETAR Duas andas E ci 
pá po Doc por CY81,750,00. 
SISTEMAS? 


possível 














JA NAS BANCAS! 


/Vioro 




















aistemas | 


Rio de Janeiro — RJ — Tels.: (021) 254 “4833 264-0379 


Garantimos o menor prazo de entrega 


e Também trocamos jogos 

eLigue-nos solicitando nosso catálogo e 
maiores informações, não esquecendo 
de especificar o seu equipamento 


AG INFORMÁTICA 


Cx. Postal 3901 
Tel.: (061) 245-6979 


— CEP 70084 — Brasilia — DF: 









UTILIZE 
ESTE 
ESPAÇO! 










A MICRO SISTEMAS 
oferece a seus 
clientes este serviço 
especial. 

Com esta opção de 
espaço e custo, 
ninguém vai deixar 
de anunciar. 














Consulte-nos pelo 
telefone 
(021) 232-0653 


Stage 







































T NOME 
* GET GENE 






+ PROGRAMADOR: RIC, 
4 MODULO: IMPRIMIR Ti 


z 

USE LOCA 
INDEX ON 
USE LOCA 1 
DO WHILE 
2 2,2 CLEAR TO 18.77 








VAU e EO EE RD 





* GET RCCL 











ia ER SET TO + 
rs B 2,2 SAT “FILMES” 
ps & 3.2 SAT “IMPRIMIE LISTAGEM 
8 17.2 SAY "DATA DEVOLUCAO -" GET DADE Raio CTMPRAHTE "TODOS RTLMES” 
CLEAR GETS SET COLOR TO W 
COR To O & 6,11 SAY "Ligue a IMPRESSORA é pressione [EN 
ENDIF s TER! para imprimir” 
RETURN 8 9,12 SAT O ou tecle [ESC] rara retor 
PROCEDURE DA a 
SET COLOR Tó FE 














IF TECLA=27 


ENDIF 
ENLDO 
SET CO 
B ii, 
SET 
SET P 
SET DATE BRITISH 
SET DEVICE TO PRINTER 
LIN=51 














primindo !!t* 































"ANIVERSARIO DEP. 
“ANIVERSARIO DEP. & 





A RTV E 





OT. EOF() 





PROCEDURE ABANDONA EJECT | 
SAVE SCREEN TO SAIR PAG=PAG+1 
DO WHILE .T. SET PRINT ON 
SET INTENSITY OFF 4444 ATIVA CARACTERE 10 CPI (NEGEITO+ENFA 
SET COLOR TO W+ TIZADO) 44 
8 18,22 CLEAR TO 21.56 ? CHE(29) +"! "4CHR(ZS) 
A 15,22 TO 21,56 DOUBLE SET PRINT OFF 
B 19,29 SAT " Sair do Sistema e 1,13 SAY "RVIDEO v1.0 Controle de Locad 
OW=SPACE (1) ora - RICO SOFT PC 1991" 
DO WHILE .NOT. OW 4 "SN" B 2,12 SA 
QW=SPACE (1) 
SET COLOR TO W SET PRINT ON 





4444 ATI 
IDO) 4+++ 

2 CHR(27) +"! "+CHE(ga) 

SET PRINT OFF 


e 20,28 SAT " Tem certeza (SN 9" va CARACTERE 17 CPI INESRITO+COMP 


GET OW PICT “e!” 














e “PAG. “+STRIPAG.5! 
2a, " DATA: “ADTOCIDATE O) 
USE : 5.8 SAY “LISTAGEM DE FILMES" 
e 7.415 
A 7.57 SAT 
E 7.78 SAT “TEMPO: " 
ELSE e 7,91 5AY "QUALIFICAÇÃO " 
e 7.107 SAY “SISTEMA” 
e 7.118 
5.3 a 7,128 ds 
E TUE LIN=9 
ENDIF ENDIT 


SET PRINT ON 





“CUSTO 


Programa genuinamente nacional. 


Imprime seu logotipo quando você usa Ê 7 Bu (021) 263-4386 


a impressora do microcomputador. e Mas A 


Conheça, também, ETIQUETA TIMBRADA » a BA od AV. PRES. VARGAS 962/414 
e CHEQUE TIMBRADO. ENA RIO 





































dd dd AAA A A 
SOFTWARE DE 
DOMÍNIO PÚBLICO 
IBM-PC e compatíveis 


Processadores de Textos, 
Planilhas Eletrônicas, Bancos 
de Dados, Desktop Publis- 
hing, Linguagens, Jogos, Va- 
cinas c/Virus, Gráficos, Fi- 
nanceiros. Desenhos para 
Autocad, Imagens e Anima- 
ções para Animator. Todos os 
programas acompanham 
orientação para instalação e 
operação. Convertemos seu 
arquivo gráfico de/para .GIF, 
PCX, PIC, etc. 


Informações: ART & TEXT — 
Serviços e Sistemas — Rua 


João Vidal, 77 — Ponta Negra 
— 59085 — Natal — RN — Fo- 
ne: (084) 219-2228. 








dd AAA A 












GUS 





SISTEMAS LTDA 


DESPACHAMOS PARA 
TODO O BRASIL 


Tudo em Informática 









e Autorizado DDX 
e Pc/Xte At 386 
e Softwares p/MSX 
e Monitores 
º Impressoras 


Av. Contorno, 4182/3 
Tel.: (031) 227-7646 
Caixa Postal 3146 

Belo Horizonte — MG 


Shareware e 
Domínio Público 








Jogos, desktop, utilitários, etc... 
Biblioteca para dBase e Clip- 
per (+de 50 mega de rotinas 
e programas), 


- Atendimento Rápido... 
- Ultimas versões... 
- Solicite Catálogo Grátis... 


ARTISOFT 
Fone: (011) 858-2183 
Caixa Postal: 16303 
CEP: 02599 
São Paulo - SP 















VIDEO GAMES 
















Ada 
MEGA DRIU 
SURER PAMICOM 

GAME GEAR 
MASTER SYSTEM 
as BOY 


ACESSÓRIOS 


AS ULTIMAS NOVIDADES 
E 05 MAIS RECENTES 
LANÇAMENTOS . 


RECURSOS DIGITAIS 
R CONS BROTERO 589 
CONJUNTO 42 

RO MARECHAL 
B1154 S PAULO -SP 
FONE (B11) 825-5240 


MICROS PC XT-AT 


*Kitpmicros 

* Impressoras (todas) 

* Monitores PC/MSX/ Apple 
* Estabilizadores/ No Breaks 
* Gabinetes/Cabos p/ impressoras 
* Formulários/Disquetes 

* Mesas p/ PC Impressoras 





DRIVES PARA MSX 
* Micros MSX novos e seminovos 


*Kit2.0e2.0 + Plus 
* Modem p/ MSX/Interfac 


GAMES E CARTUCHOS 





e (011 


PC GAMES 
CLUB 


“Nem só de trabalho 
vive o seu PC 
Dê uma distração para 
o seu Micro”. 
Temos o maior acervo de 
jogos para PCXT/AT. 
São mais de 500 títulos 


Solicite catálogo grátis 
ou consulte as últimas 
Micro Sistemas. 


Consulte também a nossa 
biblioteca de Shareware e 
Dominio Público. 


Caixa Postal 1852 
CEP 20001 — Rio de Janeiro 


RJ 
Telefone (021) 5890-6455 










D.A.C. 
INFORMÁTICA 


* Mega Ram Disk/ Expansão de Slots 


Superpromoção p/Drives 





) 62-6798 
871-0277 





1300 PROGRAMAS 
PARA PC/XT/AT... 


SOLICITE (555) 
CATÁLOGO | O 


GRATIS 0 





SOFTWARE DE DOMÍNIO 
PÚBLICO E SHAREWARE 


ÁREAS: Banco de Dados, 
Comunicação, Dos, Editores 
de Texto, Planilhas, Gráficos, 
Medicina, Astronomia, sa Ea 
Educacionais, Cad, 
Publish, Anti- -virus, Clipper 
Dbase, C, Pascal e outros. 


Cx. Postal: 8301 - 80011 - Curitiba - Pr 
Fone: (041) 222-0277 





GRATIS! 
SOFTWARE DE 
DOMÍNIO PÚBLICO 
*WINDOWS-UTILS E JOGOS 

“FONTES PARA LASER 
“PLANILHA [AS-EASY] 
“CLONE DO-NORTON-CALMER 
"COLEÇÃO PARA VENTURA, 
PAGEMAKER WORDPERFECT, 
“PROC. TEXTO [GALAXY] 
“GRAFICOS -DANCAD,PRINT- 
MASTER PRINTSHOP. 
“ANTIVIRUS, EDUCATIVOS, CO - 
HUNICAÇÃO, JOGOS E OUTROS. 


*APENAS TR$1300,00 P/COPIA 
SOFTEK =(021) 2731790 
RIO DE JANEIRO - RJ 


AGORA EXISTE UM LUGAR ONDE 
VOCE ASSISTE SEU COMPUTADOR 
SER CONSERTADO. E MAIS: 
QUERENDO TRAGA VOCE MESMO 

AS PEÇAS NECESSÁRIAS PARA 
REPOSIÇÃO. TUDO ISSO 
COM A NOSSA GARANTIA. 
ORÇAMENTO 
SEM COMPROMISSO 
ACERTE CONOSCO! 


LOCAPRINT 




































CONSERTO, 







RUA ACRE, 47 
— LOJAA 
2833-7996 — 2653-9064 


>, 
CHELLI 


INFORMÁTICA 


E 


Especializado em 
Software de Domínio 
Público (Aplicativos e 
Jogos) para IBM-PC e 

compatíveis. 
Por apenas Cr$1700, a 
j cópia 
Peça um Catálogo Grátis 


TEL: 
(0h 4) CRA-ALI? 
pano doce | 
TechnoSoft 


e Implantação de Sistemas 
eEditoração Eletrônica 











MELO, 12024 
PC XT/AT 


TEL FAX:(011)875-1883 


TOY GAMES 


MSX1/MSX2/MSX2+ 

Jogos e aplicativos * Ultimas novidades * Periféricos DDX e Drives 3 
1/2e 51/4* Megaram 256 / 512 / 768 * Modem * Expansor de Slots * 
Cartão 80 Colunas * Kit 2.0 e 2.0 + » Memory Mapper * Caixa de Som 
p/computadores (Lançamento) 

PCXT/AT 

Jogos e aplicativos de Dominio Público 


PERIFÉRICOS 
DESSAS; * SEANNERS « PLACA PARA FAX/PC (Lançamento) 
RIVES + 


AMIGA 500 / 1000 / 2000 
JOGOS APLICATIVOS * ULTIMAS NOVIDADES 


PERIFÉRICOS 

DRIVES EXTERNO « EXPANSÃO DE MEMÓRIA 1 MEGA D.D.X (Lança- 
mento) « RF MODULADOR A — 520 « GENLOCK e DIGITALIZADOR DE 
IMAGEM E SOM 


ASSISTÊNCIA TECNICA — MSX — PC — AMIGA * ALINHAMENTO DE 
DRIVE « CONSERTO EM GERAL e TRANSFORMAÇÃO TV / RGB + 


SUPRIMENTOS 


DISQUETES 5 1/4 E 3 1/2 * FORMULÁRIO CONTINUO * ETIQUETAS, 
FITAS E IMPRESSORAS * LIVROS E REVISTAS 


ABERTO DE 2º À SABADO 


TOY GAMES INFORMÁTICA LTDA. 


Rua Galvão Bueno, 714 Cj. 16 — Liberdade — São Paulo — SP 
Estação Metró São Joaquim 
Caixa Postal: 7716 Cep: 01064 — Fone (011) 277-4878 


DESPACHAMOS PARA TODO O BRASIL 
Aceitamos cartão de crédito (Bradesco, American Express) ou Paga- 
mento facilitado 






























Solicite nosso catálogo grátis 





PLACA DDFAX 96 PARA PC 
XT/AT 


Transforma seu micro em uma ih de fax com disca- 
gem automática, cadastro de até clientes e programa- 
ção para envio. Transmite e recebe com velocidade de 9600 
BPS. Recepção automática durante operação de outros 
programas. 


KIT DDX MSX 2.0 + 


Implementa no seu micro maior resolução, maior velocida- 
de de manipulação de gráficos, relógio real com bateria, 80 
colunas, 256Kb de MEMORY MAPPER e 19.268 cores. 


MEGA RAM DISK PARA MSX 


Expansão de memória com sistema operacional residente, 
disponível em 3 modelos diferentes: 256, 512 e 768 Kbytes. 
Ra como se fosse um drive temporário para o seu 


X. 
DDX MODEM PARA MSX 


Transmite e recebe em 1200/75, 300/300, 
1200/1200, BELL e CCITT. Monitoração de linha, Discagem 
rediscagem e atendimento automático. Programa para 
video texto embutido. 


KIT PARA DRIVE DDX 


Composto de gabinete metálico, fonte de alimentação, in- 
terface DDX, cabo para dois drives, manual e sistema ope- 
racional DDX DOS. 


DATATEC 


Rua Domingos de Moraes, 770 - Loja 33-B - 
V. Mariana - S. Paulo/SP Ao lado Estação 
Ana Rosa Metrô - FONE/FAX: (011) 571-7083 






























+44 ATIVA CARA 
7 CHR(ZMI AI var 
SET PRINT 
LIN, 


E 17 CPI (COMPRIMIDO) s+*+ 
1 


[ECT 


LIN=LIN+Ã 
SRIP 





+ PROGRAM 
+ PROG E i ) 
+ MODULO: ELIMINAR TODOS REGISTROS (locatos.prx) 














INTENSITY ON 


4,2 CLEAR TO 18,77 

T COLOR TO W+ 

4,2 SAY “ELIMINAR TODOS REGISTROS" 

T COLOR TO W 

AA=SPACE (1) 

DO WHILE )T. AR & CSN" 
AA=SPACE II) 

E TO G+ 














“Confirma eliminacao (5/N) :" GET AA 

ENDDO 
E 
ENDIF 
WIMP=5PACE (1) 
DO WHILE . WIMP & “ 

WIMP=S5PACE (1) 

SET COLOR TO G+ 

e7,a SAT ACE (40 

8 7,2 SAY “Ten certeza (S/N) :" GET WIMP PICT 
ogro 

EEAD 
ENDDO 
IF WIMP="5" 

USE LOCA 

ZAP 


SET COLOR TO W++ 
é 15,2 SAT "TODOS OS REGISTEOS 





SET COLOR To w 
TIME=ê 

DO WHILE TIME<lZO 
TIME=TIME+1 

ENDDO 

USE 

RETURN 








+ PROGRAMA TTROLE DE LOCADORA 

% PROGRAMADOR: RICARDO BORGES GOMIDE 

4 MODULO: ELIMINAR UM REGISTRO (Locaumô.prx) 
E) 

SET INTENSITY ON 

USE LOCA 

IMP="NAO" 








DO WHILE IMP="NAU” 









2 SAY "ELIMINAR UM REGISTRO" 
OLOR TO W 





“ GET TCODI PICT “e!” 


Rn Ima 
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«NOT. AA 8 "5 
SPACE (1) 

ET COLOR TO G+ 

à SAT "Confirha 













q 
tá 
bj 







E. 
v1.8 utiliza 





usuari 
SAT "que q 











pode es a pcao usand 





















ENTIF a barra de opcGes e teclar [ENT 
WIMP=SPACE (1) 
DO WHILE .NOT. WIMP & van” 13,12 SAT "ou pode escolher a opcao RETORNA para 
WIMP=SPACE (1) iG É f RES is 
SET COLOR TO G+ B 24,15 SAM o 
e 16,2 SAY SPACE(SM 8 15,12 SAT tenha escolhido uma cpcao po 
E 'Qutra eliminacao :" GET VIMP q engano. pr 
e 16.15 5A7 »: Na Primeira Darte da Mesma 






para retornar, 
SET COLOR TO B,W 


8 19,25 SAY " TECLE [ESC] PARA SAIR * 









TLCLE [L3C) PARA 











RESTORE 5C 






T FROM HELF 


CONHEÇA O MELHOR PACOTE 
ECONOMICO DA TEMPORADA 


E isso mesmo. O mais econômico pacote da temporada é uma assinatura anual da sua revista preferida de intor 
mática. 

Veja só se não é uma vantagem e tanto: você paga 9e leva 12 edições. Uma pechincha de dar água na boca 

Não é só isso não. Atente para o fato de que MICRO SISTEMAS é a primeira revista brasileira de microcomputado 
res. São dez anos de liderança no mercado e muita história para contar. : 

A nossa maior tradição continua sendo nosso carro chefe: nas páginas da MICRO SISTEMAS você encontra sem 
pre uma análise do mercado de informática. Além é claro, dos melhores programas e rotinas publicados em revista 

Não fique aí parado. Faça as contas e comprove. Depois é só preencher o cupon abaixo e entrar para o time dos 
usuários bem informados. 
















Nome 















Endereço 










Cep 











Equipamento 








Análise, Teleprocessamento e 
Informática Editora S.A. 

Rua Washington Luiz, 9 - gr 403 
Rio de Janeiro - RJ - Cep: 20.230 








Profissão Data nasc 























Ass Data 










Estou enviando o cheque nº mominal à ATI EDITORA SA, 
referente a uma assinatura anual (12 numeros) de MICRO SISTEMAS 






Facilite a organização de seus discos e programas 


LICATIVO 








CADPRO: 


Um sistema sob medida 





[] Daniel Jerozolimski 


Micro: IBM PC/XT 


Memória: 512 Kbytes 


Vídeo: CGA / EGA 
Linguagem: dBase Ill + 


Requisitos: Impressora 





Esta é a segunda parte do artigo publicado na edição anterior. 


CADPRO - Cadastro de Programas 
Daniel Jerozol inski 

Fevereiro, 1991 

MODULO ADICIONAR - ADICIO.PRG 


SET TALK OFF 

SET BELL OFF 

USE PROGS INDEX IND 

SET COLOR TO N/W+ 

spaco=SPACE (BO) 

q 0,0 SAY Spaco 

SET COLOR TO W+/R 

q 1,2 CLEAR TO 10,78 

a 4,2 TO 1,78 DOUBLE 

à 3,28 SAY "Adicionar Novos Programas ” 


DO 
n 


WHILE .T. 
à 5,2 54Y 'Nunero total de registros: '+STR(RECCOUNTO, 
à 7,29 SAY "Nome do Programa” 
q 6,22 TO 9,51 DOUBLE 
Hnone=SPACE (23) 
Myersag=" 
Ht ipo=" 
Mdiscos=" 
hbytes=" 
Mnota=” * 
Ndata=" 7 7" 
Mdata=CTOD(Mdata) 
Kdesci=SPACE(3S) 
Mdesc2=SPACE (35) 
q 8,26 GET Mnome 
a 10,2 TO 19,58 
"Nota (€-0-10 ) * GET Mnota 
"Tipo : O GET Mtipo 
"Versao : * GET Nversao 
"Data de aquisicao: " BET Mdata 
“Discos que ocupa : * GET Máiscos 
"Bytes que ocupa : | GET Mbytes 
"Descricao 2" GET Mdescí 
23 GET Mdesco 
OLOR TO B/B6 
199 CLEAR TO 19,77 
+59 TO 19, 77 DOUBLE 
+40 SAY “Tipos disponiveis” 


, 
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"U-utilitario” 
"B-grafico” 
"J-jogo” 
"A-aplicativo” 
| '8-s inulador ” 
à 18,62 SAY "D-adventure” 
SET COLOR TO W+/R 
READ 
Ht ipo=UPPER (Mt ipo) 
IF Mnome=SPACE(23) 
CLOSE DATABASES 
q 2,2 CLEAR TO 49,78 
RETURN 
ENDIF 
tipo-valido=LSDGÂAUJI 
IF .NOT, (Mtipo $ tipo.valido) 
324,5 SAY “Tipo invalido !!!' 


SEEK Mnome 
IF .NOT. EOFC) 
321,5 SAY "Esse prograna ja esta cadastrado” 


321,5 SAY * 

LO0P 
ENDIF 
Mdesc=Mdesci+Miesca 
APPEND BLANK 
REPLACE Desc WITH Mdesc 
REPLACE Nome WITH Mnome 
REPLACE Versao 4ITH Muersao 
REPLACE Discos WITH VAL(Mdiscos) 
REPLACE Butes WITH VAL (Mbytes) 
REPLACE Tipo WITH Mtipo 
REPLACE Nota WITH VAL(Mnota) 
REPLACE Data WITH Mdata 

ENDDO 





F! 
* 1 -) CADPRO - Cadastro de Programas TER 

* Daniel Jerozol inski READ, j 

* Fevereiro, 1991 3 21,3 SAY 

x MODULO DE IMPRESSAO - IMPRIMIR.PRO 

* q 4,3 CLEAR TO 19,78 


DO WHILE .T. q 6,3 SAY "Entre com o cabecalho:” 
SET COLOR TO N/W+ 27,3 SAY ')) O programa se encarrega de centralizar €4' 
0,0 SAY SPACE(BO) ncia DE 


E] 
SET COLOR TO W+/R 
q 1,i CLEAR TO 10,78 cab2=IPROGRAMAS 
9 1,1 TO 1,78 DOUBLE ] 
3 3,27 SAY IMPRIMIR CADASTRO cab3=SPACE (40) 
USE PROGS INDEX IND cab4=SPACE (40) 
tipo.esc= cab5=SPACE (40) 
9 SAY “Tipo de deseja imprimir 3 " GET Tipo.esc cabó=SPACE (60) 
à 21,3 SAY 'Se nao deseja ver algum tipo em especial,” cab7=SPACE(60) 
3 22,3 SAY "pressione Enter q 9,8 GET CABÍ 
SET COLOR TO B/BG à 10,8 GET Cab2 
3 7,49 CLEAR TO 45,73 a 
à 8,50 SAY “Tipos Disponiveis” 3 
a 9,52 SAY 'U- utilitario” à 13,8 GET Cab5 
a 52 SAY "Gm grafico” 9 14,8 GET Cabó 
3 11,52 SAY "J-jogo q 15,8 GET Cab? 
a 52 SAY "A aplicativo” READ 
a 13,52 SAY 1S- simulador” cabí=TRIM(cabí) 
9 14,52 S4Y 'D-adventure” cab2=TRIM(cab2) 
3 7,49 TO 15,73 DOUBLE cab3=TRIK(cab3) 
SET COLOR TO W+/R cabá=TRIM(cab4) 
READ cab5=TRIM(cab5) 
tipo.esc=UPPERCt ipo.esc) cabé=TRIM(cab6) 
tipo valido=l UGJASDI cab7=TRIM(cab7) 
3 24,3 CLEAR TO 22,78 9 4,3 CLEAR TO 19,78 
IF .NOT, (tipo-esc $ tipo.valido) 3 6,3 SAY “Ligue a impressora, posicione 0 papel corretame 
q 21,3 SAY "Tipo invalido 1H” noso. acione a chave de linha” 
pagina num=í 
60 TOP 


q 4,3 CLEAR TO 19,7 
SET COLOR TO Wx/R 
2 21,3 SAY “Imprimindo...” 
ENDDO SET COLOR TO W+/R 
3 4,3 CLEAR TO 19,78 SET PRINTER ON 
datacesc=" / / SET CONSOLE OFF 
data esc=CTOD(data.esc) ? CHR(15) 
9 4,3 SAY 'Entre com a data a partir da qual” space 3=SPACE (100) 
27,3 SAY "voce quer que seja realizada a impressao: ' GET ? space. 3+ Data: "+DTOC(DATE()) 
Data.esc ? space. 3+'Pagina numero: '+STR(pagina.num,5) 
3 21,3 SAY 'Se nao quiser especificar a data, pressione EN num.cab=í 


CLASSICSOFT Tenma 


MSX — AMIGA — PCXT/AT 


RUA JOÃO CORDEIRO, 489 — Freguesia do O — São Paulo — Capital — Cep 02960 


ADQUIRA SEUS PROGRAMAS PELO REEMBOLSO POSTAL (SEDEX A COBRAR) 
Você faz o pedido por telefone ou por carta e só pagará ao recebê-lo no correio. 


JOGOS E PERIFERICOS 
APLICATIVOS P/MSX P/MSX DDX 


1,2 PLUS, MEGARAM E MEMORY MAPPER Kit p/montagem de Drive TEMOS JOGOS E 
: get ha : APLICATIVOS 

* OS MELHORES E SEMPRE OS ÚLTIMOS DRIVE 3 1/2720 Kb. 

LANÇAMENTOS MEGARAM GAME PROMOÇÃO AMIGA/PC 
* TEMOS MAIS DE 2.000 títulos * MEGARAM DISK 256 / 512 / 768 
. PROMOÇÃO — 10 jogos 2 grátis * INTERFACE Cada 10 jogos ou aplicativos 1 GRÁTIS 

190 jogos — 25 grátis MODEM P/ MSX ATENDEMOS TODO BRASIL 
« SOLICITE CATÁLOGO GRATIS Solicite CATALOGO GRATIS 

FAÇA SEU PEDIDO E SÓ PAGUE AO RECEBÊ-LO NO CORREIO DE SUA CIDADE (SEDEX A COBRAR) 
ATENDEMOS TODO O BRASIL 


11,8 GET Cab3 
4 +8 GET Cab4 
í 





DO WHILE Num cab(8 
HSGNUM= TAB "+STR (num.cad,1) 
centro cab=(130-LEN(&MSENUM) 1/2 
2 SPACE (centro..cab!+AMSENUM 
num cab=num cab+í 

ENDDO 


DO CASE 
CASE [ipo-cer=" " 

2 "Tipos?  A-APLICATINO 
-BRAFICO S-SIMULADOR 
CASE Tipo.esc= "A" 

7 CHR(d4)+" 

20) 

CASE Tipo.esc="4' 
7 CHR(14)+" 
CASE Tipo-esc="U” 
7 CHR(44)+" 

20) 
CASE Tipo-esc="6" 

7 CHR(14)+" 


) 

CASE Tipo-esc="5" 
7 CHR(14)+" 

20) 

CASE Tipo-esc='D" 
7 CHR(14)+" 

20) 

ENDCASE 

IF Tipo-esc()” d 


J-5060 
D-ADVENTURE ” 


U-UTILITÁRIO 
APLICATIVOS "+CHR( 


JOGOS "+CHR(20) 
UTILITARIOS '+LHR( 


GRAFICOS "+CHR (20 
SIMULADORES "+CHR( 


ADVENTURES "+CHR( 


ELSE 

2 
ENDIF 
2 


IF Tipqesc=" * ça rd da 
+ Versao", " Tipo”, Nota”, 
Aquisicao Descricao” 


*, "Versao", "Nota," 


Aquisicao Descricao” 


reg.num=í 
DO WHILE NOT. EGF() 
IF (tipo-esc=" " .0R, tipo-esc= =TIPO ) «AND. ( DTOCCDATA 
)DTOC(data.esc) OR, DTOCIData.. esc)=" - = 2) 
IF Tipo.esct)” 
tipo-impr=" 
ELSE 
tipo. impr=TIPO 
ENDIF 


DO CASE 
CASE DISCOS=0 .AND. BYTES()O 
99 NOME” PAVERSAOH” ético impr+” 
Taan 
72 STR(BYTES,7)+" butes "+DTOCCDATA)+” 
CASE DISCOS()0 .AND. BYTES=0 
7? NOME+”  "AVERSAD+ 
"+STR(DISCOS,2) 
7? * Discos “+DTOC(DATA)+* 
CASE DISCOS=0 .AND. BYTES=0 
7? NOME+"  "+VERSAO+ * 


Taça 
"+DTOCCDATA)+ 


“+STR(NO 
"ADESC 


"»tipo-imor+” "+STRINO 


Ta,2)+" . 
+DESC 


"stipo-impr+” "+STRINO 


No "DESC 


ENDCASE 


reg -nun=reg nunti 
IF Reg num=4% 
reg num=í 
2 CHR(12) 
pagina. num=pag ina num+t 
! space. 3+ 'Pagina numero: '+5TR(pagina num,5) 


IF Tipo.esc=" 


50 MICRO SISTEMAS 


"None "Versao", Tipo”, 
Edo 


r 
1 


Aquisicao Descricao” 
"Nome "Versao", " 
E 


Aquisicao Descricao” 


SET CONSOLE ON 

SET PRINTER OFF 

a 21,3 SAY | É 

I6, 3 SAY "Pressione qualquer tecla para retornar ao menu” 


CADPRO - Cadastro de Programas 
Daniel Jerozolinski 

Fevereiro, 1991 

MODULO EDICAO - EDITAR.PRG 


se TALK OFF 
SET BELL OFF 
USE PROGS INDEX IND 
SET COLOR TO N/4+ 
spaco=SPACE (BO) 
7 0,0 SAY Spaco 
DO WHILE .T. 
SET COLOR TO W/R 
q 2,2 CLEAR TO 19,77 
q 2,10 CLEAR TO 10,50 
3 1,10 TO 1,50 DOUBLE 
3 3,30 SAY "Editar Programas” 
opcao=SPACE (3) 
3 8,7 SAY "Entre com o nome do programa que voce deseja 
editar 2" 
9 11,26 GET Opcao 
READ 
IF Opcao=SPACE(23) 
CLOSE DATABASES 
a 1,1 CLEAR TO 49,78 
RETURN 
ENDIF 
SEEK Opcao 
IF EOFO) 
9 21,5 SAY "Programa 
Walt 
a 21,5 SAY de 


“+TRIMCopcao)+" nao encontrado” 


ILE .T. 
s CLEAR TO 49,77 
É) SAY "Registro numero: JASTR(RECNO O), 5) 
29 S4Y "None co Programa” 
122 TO 9,51 DOUBLE 
ê 19,2 TO 19,58 
Mtipost ipo 
Hdesci=SUBSTR (desc, 1,95) 
Mdesc2=SUBSTR (desc,36) 
ê a GET Nome 
"Nota ( 0-10 ) 3" GET Nota 
“Tipo : " GET Mtipo 
"Versao : " GET Versao 
“Data de aquisicao: * GET Data 
“Discos que ocupa * * GET Discos 
“Bytes que ocupa * GET Bytes 
"Descricao 3 "GET Moescá 
23 GET Mdesco 
0LOR TO 8/86 
59 CLEAR TO 19,77 
40 SAY “Tivos Disponiveis” 
162 SAY "U-utilitario” 








Say "G-grafico” 
SAY "J-jogo” 
2 SAY 'A-aplicativo” 
7,62 SAY 'S-simulador ” 
162 SAY 'D-adventure” 
3 10,59 TO 19,77 DOUBLE 
SET COLOR TO W/R 
READ 
Mt ipo=UPPER (ME ipo) 
tipo.valido=[SDGAUJI 
IF .NOT. (Mtipo S tipo-valido) 
3 21,5 SAY “Tipo Invalido tt” 
7 CHR(7) 
WAIT"? 
224,5 SAY * 
LOOP 
ENDIF 
EXIT 
ENDDO 
Ndesc=Mdesci+Mdescê 
REPLACE Desc WITH Mdesc 
REPLACE Tipo MITH Mtipo 


CADPRO - Cadastro de Programas 
Daniel Jerozolimski 
Fevereiro de 1991 


MODULO DE APRESENTACAO - CADAST.PRG 


SET COLOR TO W+/R 

SET TALK OFF 

SET DATE ITALIAN 

SET BELL OFF 

CLEAR 

SET COLOR TO W+/6 

q 3,15 CLEAR TO 7,65 
9 3,45 TO 7,65 DOUBLE 
mag i=LCADASTROI 
asgo=[DE PROGRAMAS] 








Ponto Alto 


MSX é SOFT SUL. 








Drives DDX 


HARDWARES SOFTS 


Jogos e aplicativos, o maior 


asgô=iPrograna desenvolvido por:l 
msgó=L Daniel Jerozolimski]l 
linha=4 
mens .numero=í 
DO WHILE Mens numerot=ó 
mens. .macro="msg +STR (mens. numero,1) 
IF Hens.nunero(3 
sens.centro=(78-LEN(ânens..macro))/2 
ELSE 
nens.centro=5 
SET COLOR TO W+/R 
ENDIF 
caractere=í 
DO WHILE Caracteret=LEN(êmens macro) 
À 9 linha,mens.centro SAY SUBSTR(âmens macro, í,caracte 
re 
caractere=caracteretí 
ENDDO 
mens nunero=mens numero+s 
IF Mens numero(õ 
linha=l inha+? 
ELSE 
linha=] inha+í 
ENDIF 
ENDDO 
Ee COLOR TO G/R 
TEXT 
Esse programa foi criado para facilitar a organi 
zacao 


ENDTEXT 
Nair 
cadast="PROGS.DBF” 
IF «NOT. FILEicadast) 
SET COLOR TO Wx/R 
q 21,3 SAY “ERRO FATAL: Cadastro PROGS.DBF nao esta pre 
sente” 
NAIT 
SET COLOR TO 
QUIT 
ENDIF 
arq. ind="IND.NDX 
IF «NOT, FILElarq.ind) 
USE PROGS 
q 22,3 SAY "Espere... indexando cadastro” 


da sua colecao de programas 









Todos os equipamentos 
com selo MSX, têm 
garantia de 12 meses. 









Megaram disk (256 Kb, acervo do Brasil, sempre 
512 Kb e 768 Kb) com as últimas novidades. 
Impressoras PACOTÃO JOGOS 
Monitores (100 jogos + 5 aplicativos 
Expansor de slots + 12 discos) . 

Kit transformação 2.0€2.0+ MINIPACOTÃO 


j | 24h j 
Pirraaird ao oras (50 jogos + 5 discos) SOFT SUL PR 
Expansão de 512 Kb p/Amiga EleLUERideR EAN ILer Av. 7 de Setembro, 3146 - Loja 20 
















































Kit DDFAX 96 p/PC Domínio público Tel. (041) 232-0399 é 232-0453 
Video Games — Nintendo | Lançamentos sensacionais E HEEA PRA ud 
e Sega p/Amiga e PC E 






Ao solicitar catálogo especifique seu micro 














CADPRO - Cagastro ce Programas 
Dante! Jerozol:asa: 

revereiro, 1994 

MODULO APAGAR 


SET TALK QFF 
SET BELL OFF 
USE PROGS INDEX IND 
SET COLOR TO N/W+ 
spaco=SPACE (BO) 
à 0,0 SAY Spaco 
SET COLOR TO W/R 
q 4,2 CLEAR TO 10,78 
9 1,2 TO 1,78 DOUBLE 
q 2,30 SAY “Apagar Registros" 
delecao=0 
DO WHILE ,T. 
SET COLOR TO W+/R 
q 4,2 CLEAR TO 19,78 
opcan=5PACE(23) 
18,7 SAY “Entre com 0 nome do registro que voce deseja 
apagar: 
IF delecao=i 
à 21,9 SAY "Pressione ENTER se nao tem mais arquivos 
para deletar ” 
END!E 
9 11,26 BET Opcao 
READ 
aaa Sar 
IF Oprao=SPACE(22) 
EXIT 
ENDIF 
SEEK Opcao 
IF EOF() 
9 21,5 84Y 'Prograna "+TRIM(opcaD)+" nao encontrado” 


Wait? 
22,5 gar 


m 
= 
ensneS 


a CLEAR TO 19,78 

SAY "Reoistro numero! C+ETRIRECNO(),5) 

SAY "Nome do Programa ' 

TO 9,51 DOUBLE 

SAY Nome 

TO 19,58 

SAY Nora ( 0-40 ) 2 +STR(nota,2) 

SAY “Tipo : Jtipo 

SAY "Versao : versao 

3 SAY Data de aquistead: 

SAY Discos que ocupa * ' “ini 

SAY "Bytes que ocupa 3 '+STRibytes,7) 

se =SUBSTR(desc, 1,35) 

Ndesc2=SUBSTR (desc, 36) 

347,3 SAY Descricao 

a 19,22 SAY idesc? 

SET COLOR TO B/86 
CLEAR TO 19,77 
Sat “Tipos Dispon|vers" 
SAY "util itar io? 
SAY Ch grafico” 
SAY "J-s0go” 
SAY “A-apiicativo” 

2 SAY 'S-simulador 

SAY 'D-aoventure” 
TO 19,77 DOUBLE 

SET COLOR TO Wa/R 

opcao=" 

ao »5 SAY "Apago esse erograma (3/4) 2 ! GET Qocao 


P3Ta FIPo ra 
s 


aires dadção rã 


EDV e ae 
rnSOnDs 


a 
OD intao ta pre po O 


52 MICRO SISTEMAS 


MElácias i 
ENDIF 
ENDOU 
Delecao=í 
q 21,5 5A” Espere... processanoo...” 
PACK 
321,5 54” * 

CLOSE DATABASES 
32,2 CiCAR TO 19,78 
RETURN 

ENDIF 
2,2 CLEAR TO 19,78 


CADPRO - Cadastro de Programas 
Daniel Jerozolimski 

Fevereiro, 1991 

MODULO DE CONSULTA - CONSULT.PRO 


DO WHILE .T. 
SET COLOR TO N/4+ 
a 0,0 SAY SPACE(RO) 
SET COLOR TO W+/R 
3 1,1 CLEAR TO 10,78 
à 4,4 TO 1.78 DOUBLE 
3 3,32 SAY "CONSULTAR CADASTRO! 
USE PROGS INDEX IND 
letra.ini=" 
letra fin=" 
35,3 SAY "Entre coma letra inicial : "GET Letra.ini 
a S6Y "Pressione Enter para ver todo o cadastro” 
letra. ini=PPERCletra. ini) 
a 21,5 SAY * 
IF Letra.ini=" 
tetra.ini="A" 
letra.fin='7" 
EXIT 
ENDIF 
37,3 SAY 'Entre coma letra final "GET Letra-fin 
ER 2, 5 SAY "Pressione Enter para ver somente a letra in 
icial 
READ 
letra.fin=UPrER(etra fin) 
21,5 SAY * 


r 


IF Letra fin=" 
letra fin=letra ini 

ENDIF 

IF ASC(letra ini DDASCiletra fin) 
q 21,5 SAY “Letras invalidas” 
VAIT 


q 24,5 SAY 
LOOP 
“ ENDIF 
EXIT 
ENDDO 
DO WHILE «7. 
tipo-esc=" * 
3 9,3 SAY “Entre com o tipo oe deseja ver é "GET Tipo. 
esc 
3 24,3 SAY 'Se nao a ver alcum tipo em especial, 
AY “press ione Enter,” 


, 





co 
à 7,49 CLEAR TO 15 73 

8,50 SAY “Tipos bE sponíveis” 
7.06 SAY Va utilitario” 
10,50 SAY B- grafico 

11,58 S4Y "l-iogo” 

12,59 SAY tam preço vo” 
£3,58 SAY or” 
ta .50 SAY! 


eum 


6 23 €9 2) o ey 











COLOR TO UM 










+3 CLEAR TO 22, 
es =UPPERÍtip 


quant idade=0 








fletra fin) 


ENDDO 
3 7,49 CLEAR TO 15, 





; 2))) Nenhum registro listado 
(data.esc) 


à 14,3 SAY re con a data a partir da quai voce” 
o 12,3 SAY "quer que seja realizada a consulta! * GET Data 2 
-B5C ENDIF 

































q 21,3 SAY 'Pressinne ENTER para consultar sem especificar Tr Quant idade=0 
ao de data” WAIT "Pressione qualouer tecla para retornar ao menu! 
READ ENDIF 
q 24,3 SAY DO TELA 
, RETURN 
5o TOP 
SET COLOR TO 
4 4nnno nona a nona non ammeao=o + 
4d -> CADPRO - Cagastro de Programas : 
x Daniel Jerozolinski 1 
8 Fevereiro, 1991 
*i MODULO DE CONSTRUCAO DA 
*+ 
SET CO 
: CLEAR 
a Fino esc= TIPO) .AND, ASCCNOMEVDZA 9 4,0 TO 23,79 DOUBLE 
he (letra in) +AND. ( DTOC q 29,4 TO 20,78 DOUBLE 
. MTOC(data. EsC)= ne 3 20,: 
22 
"+NOME+" Versao: "+VERSAQ 322 
"“+TIPO+" E 
Nota 3 ASTR( ENO: 2) 2 
5 "+STR(DISCOS,2)+" à 
R(BYTES,7) 2 
E) icans DTOC(DATA? e 
? ' R 





TEMOS TUDO PARA SEU MSKX E PC!!! [U|IE/f= BIZ 


SOFTHOUSE 

É Av. Marechal Floriano, 
MSX 1.220 — CEP 16.700 
DRIVES DDX 31/2€e51/4 TV ADAPTER2.0 + | GUARARAPES —SP 
MEGARAM DISK (256,512 e 768 Kb) DDX PLACA PC Fone: (0186) 61-2687 
MODEM DDX 
KIT DE TRANSFORMAÇÃO PARA 2.0 e 2.0 + (Plus) 
DDX 
MEMORY MAPPER DDX PC 
IMPRESSORAS PCXT/AT 
MONITORES ; IMPRESSORAS 80 e 132 col. 
SoFTS: WINCHESTER 


MODEM 
JOGOS E APLICATIVOS; O MAIOR ACERVO DO BRA- MOUSE 


SIL COM SOFTS ORIGINAIS E DE DOMÍNIO PÚBLI. SCANER 
CO, SEMPRE COM AS MAIS RECENTES NOVIDA- MONITORES CGA/VGA 
DES. ESTABILIZADORES DE VOLTAGEM 


Na compra de um DRIVE DDX, um SUPER DESCONTO Á 
evocê Alda recebe inteiramente grátis 10 jogos de MSX. SOLICITE NOSSO CATÁLOGO COMPLETO 





CARTAS 














Sos Aos LETORES | 


Ms AGRADECE | 





O Sou usuário de um MSX-Expert 1.1 
com drive de 5 1/4: Possuo cerca de 250 
jogos e estou com a seguinte dúvida: 

O jogo “Chase H.Q; segundo creio, foi 
gravado originalmente em fita, e quem 
passou para o disco não conseguiu fazer 
executar a segunda e as demais fases do 
jogo. Acho que o jogo carrega tais fases, 
mas não executa pois espera um sinal em 
fita. Suspeito que o mesmo ocorra com 
o jogo 'Indiana Jones II. 

Quem tiver resolvido esse problema ou 
souber explicá-lo, por favor entre em con- 
tato comigo. 

Luis Rafael Ribeiro 
R. Gonçalves Ledo, 602 
96800 - Santa Cruz do Sul - RS 











Possuo um equipamento PC-XT 12 Mhz 
com 64 K de memória e um monitor Sam- 
sung (letras amarelas). Gostaria de saber 
se o filtro polarizador circular “CP univer- 
sal Il' para monitores monocromáticos, 
fabricado pela Polaroid, pode ser utili- 
zado também em monitores de cor ama- 
rela. 

Mário Souza Furioso 

SQS 409 bl. N, ap. 102-E 

70258 - Brasília - DF 














Possuía um micro CP-400, e agora re- 
solvi migrar para um MSX 1 com drive. Nas 
minhas horas vagas filmo em VHS, e os 
motivos da escolha do MSX, foram os softs 
gráficos existentes para esta linha, mas in- 
felizmente moro no interior do Nordeste e 
quase não temos lojas especializadas em 
softs. 

Peço informações de como posso 
transformar o MSX num gerador de carac- 
teres, e se há algum acessório passível de 
acoplar a ele para produzir o efeito de le- 
genda sobre a imagem. 

Marcus Vinícius Rodrigues 
R. Domingos Ramos,10 
55900 - Goiana - PE 














Há um ano ingressei no 'mundo' da In- 
formática e tenho ouvido algumas pes- 
soas dizerem que a linguagem Cobol está 
ultrapassada. Como sou calouro na área, 
gostaria de um parecer sobre a citada lin- 
guagem. Também gostaria de algumas in- 
formações sobre cursos de Cobol aqui no 
RS ou por correspondência. 

Josué Santiago 

R. Duque de Caxias, 587 

93600 - Estância Velha - RS 














CuuBe DO USUÁRIO | 








Recentemente criamos o Flashes Club 
de Software para usuários do MSX. Tra- 
balhamos com drive 5 1/4 e 3 1/2 e dis- 
tribuímos um jornal. Estamos fazendo um 
concurso, no qual os três primeiros ven- 
cedores ganharão programas grátis. Para 
se associar não é precisopagar absoluta- 
mente nada. 











Flashes Club de Softwares 
R. Joaquim Távora, 50 
84600 - União da Vitória - PR 








O Já há algum tempo formamos um 
clube e atualmente estamos lançando um 
boletim mensal para os gamemaníacos da 
linha de microcomputadores MSX. O bo- 
letim possui lançamentos, novidades, di- 
cas, jogos, enfim tudo que os donos de 
Hotbits e Experts precisam para estar sem- 
pre 'por dentro. 


MSKX - Overdose 
Caixa Postal 265 
86975 - Mandaguari - PR 




















Venho me congratular com a direção 
da revista Micro-Sistemas pelo excelente 
trabalho realizado nas edições da revista, 
visando a levar aos leitores matérias de 
real interesse, divulgando não só o que 
diz respeito a produtos, mas também a 
literatura técnica da área, e ainda pro- 
movendo o intercâmbio entre seus leito- 
res. Parabéns. 

Ernesto Carneiro 

R. Abassai, 305/403 

04570 - São Paulo - SP 











Gostaria de agradecer a Micro Siste- 
mas por ter publicado minha carta na 
edição 101. Isto prova a seriedade 
desta revista, pois graças a ela recebi 
dezenas de cartas, dos lugares mais 
longínquos possíveis. 

Sandro Mancini 

R. Francisco Sá, 13/Cob. 

22080 - Rio de Janeiro - RJ 

















Gostaria de parabenizar esta revista 
pelo 'tremendo' apoio que está dando 
aos seus leitores, usuários de vários 
modelos diferentes de micros. Valeu! 
Fabio José Soares de Moura 

R. Roque Gonzales, 89 

08450 - Guaianases - São Paulo - SP 














Gostaria de parabenizar todos que fa- 
zem de Micro Sistemas a melhor revista 
de Informática em geral do Brasil. 
Parabéns também pela matéria 'Abra 
Janelas em seus programas (MS 106) es- 
crito em Turbo Pascal, Escrevo progra- 
mas em Basic, Pascal, dBase etc, mas 
sempre faltava algo para meus progra- 
mas ficarem mais 'sofisticados' se assim 
posso dizer. Gostei muito por ser um pro- 
grama curto e fácil de acompanhar. Faço 
votos que MS continue oferecendo sem- 
pre matérias úteis e de excelente quali- 
dade aos seus leitores. 
Maurício de Oliveira Júnior 
R. Bento Mascarenhas, 49 
18045 - Sorocaba - SP 
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TAII COMUNICAÇÃO LIGUE MAIS EMOCAO (B41) 5729-3131 


SOFTS PARÁ 


PC E AMIGA 


SOLICITE CATALOGO GRATIS 
CAIXA POSTAL 43842-CEP 84198 


AVENIDA JABAQUARA, 1.598 - SALA BB - CEP 84846 - AO LADO DA ESTACAO SAUDE DO METRO - SAO PAULO /SP 


XT- AT 286 E 386 
IMPRESSORAS 
MONITORES COLORIDOS 
HD 38/48/88 





PLACA FAX -DDFAX 
DDIV - PC NA TV 
MOUSES E JOYSTICKS 
PLACA DE SOM ESTEREO PC 











O MUNDO UNIX É MAIOR DO QUE VOCÊ PENSA 
UniForum Brasil 91 


26 A 28DE NOVEMBRO 1991 =» HOTEL HILTON " SÃO PAULO 


KEY NOTE 


Mr. Larry Michels 
Presidente e Fundador da SCO - Santa Cruz Operation, 
será o principal Palestrante do evento. 


PALESTRAS 


e Interfaces Gráficas e Portabilidade de Aplicações: Open Look e OSF/Motif. 
e Gerenciamento de Sistemas em Ambientes Distribuídos. 
e TCP/IP e OSI: O melhor de dois padrões. 

* UNIX em Aplicações Multimídia. 

e Aplicações Distribuídas: X Windows System. 

e Estratégia de Implementação de Sistemas Abertos. 

e Desafios dos Sistemas Abertos para Aplicações OLTP. 

* Segurança dos sistemas UNIX. 

e UNIX como servidor MS-DOS e Windows. 

e Planejamento de capacidade em UNIX. 

* Bancos de Dados distribuídos. 

* Soluções em Comunicação de Dados. 

* UNIX e Redes de PC's 

* Implementação de Soluções Cliente/Servidor. 

e Estudos de Casos. 





































EXPOSIÇÃO 


Os principais aplicativos para a tecnologia UNIX estarão expostos por seus 
principais distribuidores no subsolo e no 2º andar do Hilton. 
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CARTAS 











O LeiroR RESPONDE | 


PROCURASE O AUTOR | 





[] Respondendo à carta de João Paulo 
Reis Ramos, informo que para imprimir 
gráficos com a Lady 80 ou qualquer ou- 
tra impressora gráfica, basta dar, em Ap- 
plesoft, após o comando PR 1, um co- 
mando PRINT CHR$(9)'G', dependendo da 
sua placa de impressora, experimente tro- 
car o 'G' por 'GR' ou 'GRD' para fazer va- 
riar o tamanho da impressão. Este co- 
mando imprime a tela de alta resolução. 
Em Basic, não é possível imprimir a tela 
de baixa resolução, a não ser com rotinas 
apropriadas. 

Já em ajuda ao Leitor Ricardo Padoin 
Nene, envio este pequeno programinha, de 
minha autoria, que permite imprimir tex- 
tos acentuados usando um TK 3000 Ile, 
uma impressora (Lady 80 ou qualquer ou- 
tra) e o editor de textos MAGIC WINDOW. 
Entre no monitor com CALL -151 e digite 
os seguintes códigos: 





300: 8d 51 03 a9 00 8d 04 9d 
308: a9 03 8d 05 9d ad 51 03 
310: 8e 50 03 a2 00 dd 52 03 
318: fO Ob e8 eO Oc do f6 ae 
320: 50 03 4c bd 9e a9 9e 8d 
328: 05 9d a9 bd 8d 04 9d bd 
330: 6a 03 20 ed fd a9 88 20 
338: ed fd a9 00 8d 04 9d a9 
340: 03 8d 05 9d bd 5e 03 ae 
348: 50 03 4c bd 9 ad 51 03 
350: 00 00 a3 a6 cO db de dd 
358: df eo fb fd fc fe 6f 65 
360: 61 61 61 63 61 65 69 6f 
368: 75 6f Te 5e 27 Te 5e 2c 
370: 60 27 27 5e 27 27 


Grave o programa com BSAVE 
DRIVERMW,A$300,L$80. Estando no Ma- 
gic Window, vá para o FILER MENU, esco- 
lha DOS COMAND, digite BRUN DRIVER e 
tecle RESET. Pode imprimir seu texto acen- 
tuado normalmente. 

NOTA: o programa usa Back Space para 
imprimir os acentos que não funcionem 
em Basic. Estou à disposição dos leitores 
para esclarecer dúvidas. 





João Paulo Holanda Cavalcanti de An- 
drade 

Quadra L, número 3, Jardim América Ill, 
Olho dágua 

65065 - São Luis - MA 


LC] Com relação à carta de Ricardo Y. Shi- 
mamoto, queremos informar ao mesmo 
que o MSX possui placa aceleradora e que 
a mesma é fabricada pela Tacto Informá- 
tica, deixando o MSX com um clock de 7.5 
Mhz, ou seja, um clock infinitamente ma- 
ior que o clock do PC. 

E gostaríamos de acrescentar que o 
MSX 3,0 é infinitamente superior a micros 
como Amiga e PC, pois também suporta 
uma unidade de disco rígido e possui 32 
bits, tornando-se o computador mais mo- 
derno da linha. 

Space Soft Ltda. 
Av. Almirante Cóchrane, 287 
11040 - Santos - SP 


[L] Caro Marcio Vilas Boas Caetano: você 
não disse em sua carta qual micro usa, 
mas deve ser um Hotbit, pois seu pro- 
blema é igual.ao que eu tive com o refe- 
rido programa. 

Acontece que o programa da MS 70 foi 
feito para rodar no Expert; para rodar em 
Hotbit você deve mudar as linhas 40 e 
100. Procure no finalzinho da linha 40, a 
sequência FT, 02, 2D, C3, C9 e mude o nú- 
mero 02 para 03, que se refere a um call, 
onde: 

= RST30 ou CALL30 
- 02 = SLOT em que se encontra a rotina 
- 2DC3 = endereço a chamar = C320H 
- C9 = RET = retorno da rotina 

Seu problema se encontra justamente 
no SLOT que, no caso do Hotbit, é o nú- 
mero 03, Na linha número 100 você deve 
aumentar o número da soma para 19976, 
a fim de que não seja acusado erro de di- 
gitação. 

Fernando Lopes de Oliveira 
R. Vol. Benjamim Capusso, 369 
12900 - Bragança Paulista - SP 











[) Sou leitor constante da revista Micro 
Sistemas e sempre encontro matérias 
que me interessam. No entanto, no nú- 
mero 105 houve uma que me chamou es- 
pecialmente a atenção: 'Conversão de Ar- 
quivos entre PC, MSX e Spectrum, de 
autoria de Vicente Alves Guimarães 
Filho. 

Possuo um PC-AT 386 8/25 Mhz e 
um CP-400 Color Il e tenho necessi- 
dade de passar alguns dos arquivos 
criados no CP-400 para o PC, Acredito, 
ainda, que o Sr. Vicente poderia me 
ajudar na elaboração de um programa 
que lesse o disquete em que se en- 
contram os dados do outro micro de 
forma a poder passá-los para o atual 
PC. 

Seria possível o autor entrar em con- 
tato comigo? 

Rotildo Longo 

R.Getúlio Vargas, 1635 
Caixa Postal 88 

87580 - Alto Piquiri - PR 


[J Ao digitar os programas da matéria 
“Abra Janelas em seus programas, de au- 
toria de Leonardo Opitz e publicada na MS 
106, não consegui que o programa fi- 
zesse as molduras de cada janela. Exceto 
esta dificuldade o programa funciona sem 
problemas. Gostaria que o autor me orien- 
tasse sobre o que está ocorrendo em mi- 
nha digitação. 

Eugeniano Brito Martins 

R. Teodomiro de Castro, 4132 

60335 - Fortaleza - CE 


DD Com relação à matéria “Sistema de 
Conta Corrente; publicada na MS 96, gos- 
taria que seu autor, Williams Carlos de Al- 
buquerque me fomecesse a estrutura dos 
arquivos CONTA e CHECPRE e também in- 
formasse como se roda o programa. Agra- 
deço desde já. 

Ruy Soares Dias 

R. 12 de Outubro 55/202 

35174 - Centro Timóteo - MG 










x Drivers x Modens 


x Disketes 


Imperator) Cep..: 20720 — Tel.: (021) 2 
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NICROINFORNATICA 


TUDO PARA MSX, PC, TELEX E FAX 


x Computadores x Formulários 
Computoy Microinformatica Rua Dias da Cruz, 143 Sala 606 — Meier — Rj alia 











x Mega-ran x Joysticks 


x Impressoras x Monitores x Jogos 


x Bobinas x Aplicativos 









Transformações para 2.0 e 2.0+ 
Cartuchos para Video-Games 

Fazemos montagens, instalação 
e manutenção de seu aparelho. 













LANÇAMENTO: 
Programa: 

Numerologia Cabalística para PC 

(O mais completo do mercado) 


Distribuidor MSX Soft 
para todo 
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L] Gostaria de trocar programas para IBM 
PC; principalmente jogos e editores gráfi- 
cos. Peço que os interessados mandem ca- 
tálogo de softwares. 

Schubert Krolow Peter 

R. Nilo Peçanha, 212 

96020 - Pelotas - RS 











Sou usuário de um micro PC XT e gos- 
taria de entrar em contato com outros 
usuários para troca de informações e sha- 
reware (responderei a todas as cartas). 
Ricardo Carellos da Silva Bernardes 
Caixa Postal 20 

36950 - Ipanema - MG 





[1 Possuo um Amiga 500 e gostaria de en- 
trar em contato com usuários da mesma 
linha para troca de programas (jogos e apli- 
cativos) e tudo o que se refere ao Amiga. 
Responderei a todas as cartas. 

Silvio Luis Evangelista 

Av. Dr. Jambeiro Costa, 881 

13610 - Leme - SP 


[3 Estou negociando meu microcomputa- 
dor TK2000 Il juntamente com muitas fi- 
tas de jogos para TK2000 e TK85, livros 
e monitor monocromático MM-12 da Gra- 
diente. 

Estou interessado também em vender 
ou trocar meu monitor monocromático 
TB200 (da Tabra) e minha placa CGA, pois 
pretendo adquirir uma VGA. 

Jefferson Guimarães Rangel 
R. Teodoro da Silva 890/305 
20560 - Rio de janeiro - RJ 





[ Possuo um microcomputador Sharp 
Hotbit com drive de 5 1/4' e gostaria de en- 
trar em contato com usuários do mesmo 
tipo de equipamento para troca de infor- 
mações. 

José Estevam 

R. São Benedito, 314 

13360 - Capivari - SP 





L] Possuo um Expert 1.0, drive DDX 5 1/4' 
e impresora Lady 80 e gostaria de trocar 


programas com usuários da linha MSX que 
também possuam drive 5 1/4 

Emerson Renato Cavallari 

R. Fioravante Sicchieri, 790 

14160 - Sertãozinho - SP 


[) Sou agrônomo e gostaria de manter 
contato com usuários de computadores do 
tipo IBM PC para troca de programas (em 
qualquer linguagem) relacionados com 
agropecuária, ou assuntos afins. Respondo 
a todas as cartas. 

Dagoberto Costa 

Caixa Postal 52910 

601541 - Fortaleza - CE 





[] Em julho passado comprei um Solution 
16. Peço aos usuários desse micro, mais 
tarimbados do que eu para me ajudarem 
trocando idéias e me enviando programas 
e jogos. 

Miguel Sobral 

Caixa Postal 99209 

25805 - Três Rios - RJ 








MANUTENÇÃO 
REALIZADA POR 
ENGENHEIROS 
ESPECIALIZADOS 
EM 
MICROS PC XTIAT 
DRIVES 
DISCO RÍGIDO 
IMPRESSORAS 
E MONITORES 


CONSULTE 
PARA CONTRATOS 
DE MANUTENÇÃO 








FORNECEMOS BACK-UP! 









ASSISTÊNCIA TÉCNICA PERFEITA 


COMPROVE! 
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e periféricos. 





ERAFEE O seste EUGIN 
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IRINA. 
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DEFEITOS EM MICROCOMPUTADORES: 
Erros de lógica aleatórios, 

perda de memória, 
destruição do software, 
falha de componentes... 


UMA SOLUÇÃO PERFEITA: 
MICROLÓGICA, o melhor caminho para 
eliminar defeitos em microcomputadores 
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MICROLOGICA 


haria de Sistemas Lida. Consultoria de Hardware 
RUA CAMERINO, 128 - 11º ANDAR - CENTRO - RIO 
(PRÓXIMO A EST. DO METRÔ PRES. VARGAS) 


TEL.:(021)263-9925º 263-9408 

















LIVROS 








MANUAL DO QUATTRO PRO - 2 
Volumes/segunda edição 

Mary Campbell 

EBRAS Editora Brasileira 

328 páginas 


Composta 12 capítulos, distribuídos em 
dois volumes, a obra orienta o leitor, passo- 
-a-passo, e ensina como controlar o QUAF 
TRO PRO 2,0. 

O volume 1 tras os fundamentos do am- 
biente do programa e inclui: técnicas de im- 
pressÃo de relatórios; procedimentos bási- 
cos de entrada de dados; manipulação de 
cépulas múltiplas na área de trabalho, além 
de funções matemáticas, planilhas multidi- 
mensionais e gráficos em 2D e 3D. 

O volume 2 apresenta tópicos avança- 
dos do ambiente, com manipulação de ar- 
quivo, gerenciamento de dados, macros 
avançados e automação de tarefas. De- 
monsra a instalação do sistema e, ainda, a 
análise e personalização do programa. 

O livro tem ainda uma referência cruzada 
QUATTRO X Lotus 1-2-3, com direito a dis- 
cussão das mudanças da versão 1.0 para 
PRO 2.0 e com os comandos alterados. 
Complementando a abordagem, a autora 
descreve todos os comandos e apresenta 
um Guia de Comandos do Menu. 


GUIA DO PROGRAMADOR PARA AS PLACAS 
EGA e VGA 

Richard F. Ferraro 

Editora Ciência Moderna 

712 páginas 


A obra é uma referência para recursos e 
funções de padrões gráficos, proporcio- 
nando ao leitor informações consistentes e 
necessária experiência na programaçãodas 
placas EGA e VGA. Uma combinação de guia 
e tutorial, o livro descreve detalhadamente 
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a arquitetura destas placas, além de ofere- 
cer dicas sobre técnicas de programação. 
Começando por uma visão geral dos recur- 
sos da EGA e da VGA e por uma introdução 
aos princípios da computação gráfica, mos- 
tra ao leitor como usar, de maneira eficiente, 
a maioria das funções das placas. Aborda 
também tópicos como: 


- Registros da EGA e da VGA. 
- Processamento alfanumérico. 
- Bios da EGA e da VGA. 

- Cotrole da palette de cores. 

- Desenho de linhas e vetores. 


A parte final da obra é um extenso con- 
junto de exemplos de programação nas lin- 
guagens C e Assembler, que aborda seções 
de textos, fontes, gráficos e cores dos adap- 
tadores. Esses programas compõem a base 
de um poderoso conjunto de ferramentas. 
O livro apresentas-se, ainda, como uma 
fonte de informações para programadores 
que desejam otimizar as capacidades grá- 
ficas de seus computadores para desenvol- 
ver eficientes aplicações profissionais. 


CÓDIGO DE BARRAS: Da teoria à prática 
Mauro Luiz Zyngier e Fábio Grossmann 
Editora Nobel 

104 páginas 


O código de barras, eficiente sistema de 
gestão de estoques com vasta aplicação no 
comércio, indústria e na área de serviços, 
vem ganhando nos últimos anos um im- 
pulso significativo no Brasil, e a presente 
obra fornece noções básicas do que é e de 
como funciona o código de barras; apre- 
senta suas alicações; compara o códiigo de 
barras nos Estados Unidos e no Brasil; ex- 
plica as vantagens de se colocar o código 
de barras em produtos; mostra os aspec- 
tos técnicos da colocação; exemplifica o 
controle de qualidade do código; demons- 
tra os erros mais comuns e apresenta o 
equipamento de leitura. 

Ilustrado com exemplos baseados na ex- 
periência dos autores nesta atividade, o li- 
vro envoca os principais pontos do sistema 
de código de barras, como estrutura, fun- 
cionamento e aplicações, tendo como ob- 
jetivo fornecer informações úteis aos pro- 
fissionais que já utilizam o sistema, bem 
como àqueles que pretendem se familiari- 
zar com o assunto. 


NOVO GUIA PETER NORTON PARA PROGRA- 
MADORES DO IBM-PC & PS/2 

Peter Norton & Richard Wilton 

Editora Campus 

484 páginas 


O livro é dirigido não apenas a progra- 
madores, mas-a qualquer pessoa que pre- 
cise entender detalhes técnicos e princípios 
de funcionamento de programas no PC. 


Agora, totalmente atualizado e incluindo 
a linha PS/2, este novo guia apresenta va- 
liosas discussões sobre filosofia de progra- 
mação. Seus conselhos, métodos de pro- 
gramação e técnicas ajudarão a criar 
programas simples e portáteis em todas as 
máquinas IBM atuais e, talvez, até futuras. 

Aprofundando-se em capítulos específi- 
cos oferece informações atualizadas sobre 
o software da ROM: vídeo, disco e teclado 
básico; clocks, temporizadores e geração de 
som, bases do DOS; interrupções; funções, 
e grande quantidade de “dicas para acabar 
com as dificuldades. 


PROGRAMANDO EM LOTUS 1-2-3 - versões 
2e2.2 

Quirino Ponton Swensson 

Livros Técnicos e Científicos Editora 

197 páginas 


Para tornar esta segunda edição o mais 
atualizada possível, foi atualizada como base 
a versão 2, a mais utilizada no momento, 
Seus comandos de Macro permanecem 
compatíveis com versões posteriores. 

Nele são apontadas as diferenças com 
as outras versões de forma a apoiar o leitor 
seja qual for a versão que o mesmo use. 
Nesse sentido é apresentado o Apêndice C 
que comenta as novidades traduzidas pela 
versão 2.2. 

Além disso foram ainda incluídos mais 
dois apêndices: 

- Apêndice A: apresenta um resumo das 
opções do Lotus até o terceiro nível de co- 
mandos. 

- Apêndice B: apresenta comandos avança- 
dos, análogos a outras linguagens de pro- 
gramação e disponíveis nas versões 2 e su- 
periores. 


O MELHOR DO WORD FOR WINDOWS 
Richard Swadley 

EBRAS Editora Brasileira 

415 páginas 


Elaborado especialmente para que se ini- 
cia ou já trabalha em processamento de 
texto, o livro tem recursos que facilitam o 
aprendizado das funções e facetas por trás 
da interface intuitiva do Windows 3. Mostra 
como integrar as funções e as técnicas do 
Word mais avançado da Microsoft. A obra 
instrumenta o leitor para: 


- Formatar, criar e editar qualquer tipo de do- 
cumentação; 

- Otimizar as tabelas e matemática do Word; 
- Dominar todos os menus e comandos; 
- Personalizar o Word com macros; 

- Combinar texto, gráficos e dados. 


Através das “dicas' apresentadas, as ne- 
cessidades de processamento de texto, po- 
dem ser trabalhadas num alto nível de exi- 
gência. 








Transforme seu MSX 
em uma estação gráfica... 
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Tela digitalizada (foto em monitor RGB). PI 


aca eleivônioa KIT 2». 
KIT 2+ 


* 19.268 cores + 256 KBytes RAM do usuário + 128 KBytes VRAM (vídeo) + 96 KBytes ROM-BASIC + TURBO-BASIC 
residente * 80 colunas de texto (mesmo pela TV) + Relógio/Calendário (mantido por bateria) + Movimentação fina das telas 
gráficas na horizontal e vertical + Resolução de 512 x 424 16 cores de 512 


« € também em um Video-Game 
de alta resolução 


CEC Tame- 
0014600 0014600 
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Placa e Cartucho II MEGARAM. 


Jogo SPACE-MANBOW (MEGAROM). 


IH-MEGARAM 


* Expansão com 256 KBytes destinada a rodar os jogos MEGAROM gravados em disquetes. + Funciona em qualquer 
micro da Linha MSX. * Os jogos MEGAROM possuem alta definição gráfica e sonora. 


Todos os produtos têm garantia de 1 ano. 
KIT 2.0 e KIT 2+ são marcas registradas da ACVS Eletrônica Ltda. 


ACVS Eletrônica Ltda. 


Av. Paulista, 2001 - Conj. 912 - CEP 01311 - São Paulo - SP - Tel.: (011) 289-7694 





